asi tengo los godigos de la base de datos

JUAN LUIS
08 de Agosto del 2004
Dim s As String
Private Sub Form_Load()
Text1.Text = ""
End Sub
Private Sub List1_DblClick()
Label1.Caption = List1.Text
End Sub
Private Sub Command1_Click()
Dim r As New ADODB.Recordset
List1.Clear
s = "select * From alumnos Where curp Like '" & UCase(Text1.Text) & "%'"
r.Open s, conectar, adOpenForwardOnly, adLockReadOnly, admdtext
Do While Not r.EOF
List1.AddItem r!curp & "," & " " & r!apaterno & " " & r!amaterno & " " & r!nombre & "."
r.MoveNext
Loop
r.Close
End Sub

Private Sub Text1_Change()

End Sub