{ Berbagi, Menulis, Dan Mengajar } Ilmu…

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”