Kết nối cơ sở dữ liệu

Code tham khảo, sử dụng csdl access Private con As OleDbConnection Dim dt As New DataTable("login") Dim da As New OleDbDataAdapter() Private Sub ket_noi() Dim cn As String = "Provider = Microsoft.Jet.OLEDB.4.0;" & "Data Source=" & Application.StartupPath() & "\csdlnhahang.mdb;" & "Persist Security Info=False"