kết nối access với visual help me ?

[luutuanphong]

ai có đoạn mã hay là phần mềm kết nối thì cho minh tham khảo với mình đang cần lém(sách cũng được).

[tvthuong]

Public CN As New ADODB.Connection

Sub Open_mdb()
Dim Db_name, str As String

'Ket noi voi co so du lieu Phon.mdb dat trong thu muc chuong trinh
Db_name = App.Path & "\DATA\XE_MAY.mdb"
str = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source= '" & (Db_name) & "'"
DE1.CN1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Mode=Share Deny None;Persist Security Info=False; Data Source= '" & (Db_name) & "'"
DE1.CN1.Open
CN.Open str
End Sub