Like this:

Dim Mydb As ADODB.Connection Dim TBiodata As New ADODB.Recordset Private Sub Command1_Click() CR.WindowState = crptMaximized CR.SelectionFormula = “{registeri.no_pin_peg} = ‘” & Me.xnama.Text & “‘” CR.Action = 1 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Set Mydb = New ADODB.Connection Set registeri = New ADODB.Recordset Mydb.Open “Provider=Microsoft.Jet.OLEDB.4.0;Data Source=” & App.Path & “\dataku.mdb;Persist Security Info=False” Perintah = “Select * from registeri Order By no_pin_peg” registeri.Open Perintah, Mydb, adOpenDynamic, adLockOptimistic If Not registeri.EOF Then With registeri .MoveFirst While Not .EOF Me.xnama.AddItem registeri!no_pin_peg .MoveNext Wend End With End If End Sub