Anda tinggal mengganti connection stringnya aja,
contohnya seperti berikut :
Dim koneksi As New ADODB.Connection
Dim dbPath As String
Dim strKoneksi As String
Dim rs As New ADODB.Recordset
dbPath = App.Path & "\db.mdb"
strKoneksi = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
& ";User Id=admin;Password=;"
koneksi.ConnectionString = strKoneksi
koneksi.Open
rs.Open "select * from mhs", koneksi, adOpenStatic, adLockReadOnly
Do Until rs.EOF
MsgBox rs.Fields(0).value
rs.MoveNext
Loop
rs.Close
Set rs = Nothing
koneksi.Close
Apabila comp tsb sudah ada ms access, maka driver tidak perlu
diinstall, tp klo belum ada maka harus install drivernya(tp saya ga
tau namanya ;D, mungkin rekan2 yg lain bisa menambahkan)
Salam,
Agus Pradikta
