Yuk lanjut VB6 Access nya, tentukan udah baca postingan sebelum nya yah . Biar paham dan nyambung. Tabel yang akan kita gunakan bernama category dengan isi sebagai berikut: Kemudian kita atur UI selaku berikut: Berikut code yang kita buat: Option Explicit Dim oConn As New ADODB.Connection Dim rsData As New ADODB.Recordset Dim strConn As String Dim SQL As String Sub Open_Connection() Set oConn = New ADODB.Connection oConn.ConnectionString = strConn oConn.Open End Sub Sub Load_Data() On Error GoTo errHandler Open_Connection Set rsData = New ADODB.Recordset SQL = "SELECT * FROM Category" With rsData .CursorLocation = adUseClient .Open SQL, oConn, adOpenDynamic, adLockOptimistic .ActiveConnection = Nothing End With Set grdData.DataSource = rsData oConn.Close Exit Sub errHandler: MsgBox Err.Number & ":" & Err.Description End Sub Private Sub Form_Load() strConn = "Provider=Microsoft.Jet.OLEDB.4.0;" & _ "Data Source=" & App.Path & "\latihan.mdb;" & _ "Persist Security Info=False" Load_Data End Sub Runtime: Selanjutnya kita akan membuat filter data dengan keyword . Click here if you like this article. Sumber http://rani-irsan.blogspot.com