Public i As Byte
Public View As ListItem
Public StrKoneksi As String

‘ Perintah-perintah umum
Public SqlMasuk As String
Public SqlUbah As String
Public SqlHapus As String
Public Konfirmasi As String

Public Sub Bukadatabase()
Set DBKoneksi = New ADODB.Connection
DBKoneksi.CursorLocation = adUseClient

‘StrKoneksi = “Provider=Microsoft.Jet.OleDB.4.0; ” _
‘    & ” Data Source=” + App.Path _
‘    + “\DbPenggajian.mdb;Mode=readwrite”

‘StrKoneksi = “provider=msdasql.1;” & _
‘”persist security info = false; data source = sdmkumham;” & _
‘”initial catalog = sdmkumham”

StrKoneksi = “Driver={MySQL ODBC 5.1 Driver}; SERVER=localhost;PWD=okedeh;UID=root;port=3306;DATABASE=sdmkumham;”

If DBKoneksi.State = adStateOpen Then
DBKoneksi.Close
Set DBKoneksi = New ADODB.Connection
DBKoneksi.Open StrKoneksi
Else
DBKoneksi.Open StrKoneksi
End If
End Sub

‘StrKoneksi = “Provider=Microsoft.Jet.OleDB.4.0; ” _
‘    & ” Data Source=” + App.Path _
‘    + “\DbPenggajian.mdb;Mode=readwrite”

StrKoneksi = “provider=msdasql.1;” & _
“persist security info = false; data source = sdmkumham;” & _
“initial catalog = sdmkumham”