Private Sub Form_Load()
Dim strCN As String
Dim strPath As String
strPath = App.Path + "\Data\tinphat.mdb"
Set cn = New ADODB.Connection
strCN = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strPath & ";Persist Security Info=False;Jet OLEDBatabase "
cn.Open strCN

Dim rs As New ADODB.Recordset
rs.Open "select*from linhkien", cn
If Not rs.EOF Then
' Khai thac du lieu o day
    DataGrid1.DataSource = rs.Open
End If
rs.Close

End Sub