Gimana sih rumus koneksi vb ke accsess? 3

sediakan 1 form dan 1 combo didalamnya
kemudian buat table dengan nama province dengan field Province_Name

tempatkan database satu folder yang sama dengan program vb yang anda buat

ini sample codenya

Dim db As ADODB.Connection
Dim Rs As ADODB.Recordset
Dim msg as string

Private Sub Form_Load()

Dim Lok As String
Lok = App.Path + "\dataku.mdb"

Msg1 = "Provider=Microsoft.Jet.OLEDB.4.0;" & Chr(10)
Msg1 = Msg1 & "Data Source='" & Lok & "';" & Chr(10)
Msg1 = Msg1 & "Persist Security Info=False" & Chr(10)

Set db = New ADODB.Connection
db.Open Msg1

Msg = "SELECT Province_Name"
Msg = Msg & " From PROVINCE"
Set Rs = New ADODB.Recordset
Rs2.Open Msg, db, adOpenStatic
Combo1.Clear
Combo1.Text = "[...]"
Combo1.AddItem "[...]"
While Rs.EOF <> True
With Combo5
.AddItem Rs(0)
End With
Rs.MoveNext
Wend
Rs.Close
Set Rs = Nothing

end sub