tt1212 > 08-12-13, 10:42 AM
Option Compare Database
Public cnn As New ADODB.Connection
Public Sub Moketnoi()
With cnn
.ConnectionString = "Provider= Microsoft.Jet.OLEDB.4.0; data source=" & _
CurrentProject.Path & "DATAKSan.mdb"
.Properties("Jet OLEDB:Database Password") = ""
.CursorLocation = adUseClient
.Open
End With
End Sub
Private Sub Form_Load()
Moketnoi
End Sub
Dim lsSQL As String
Dim lrs As New ADODB.Recordset
lsSQL = "select * from TBphong"
lrs.Open lsSQL, cnn, adOpenStatic, adLockBatchOptimistic
Set Me.Recordset = lrs
Set lrs = Nothing
End Sub