Private Sub Command1_Click()
sql = Empty
sql = "select * from empleados"
sql = sql + " where rut_emple = '" & txt_rutadmi.Text & "'" AQUI COMPARO EL TEXT CON EL CAMPO DE LA BD
Set rs = db.OpenRecordset(sql, 2)
If rs.RecordCount > 0 Then SI ES CORRECTO PONDRA LOS CAMPOS DE LATABLA (RS.FIELDS 0,1,2 ETC) EN LOS TEXTBOX
txt_fichaadmi.Text = rs.Fields(0)
txt_nomadmi.Text = rs.Fields(1)
Text1.Text = rs.Fields(3)
Text2.Text = rs.Fields(4)
Text3.Text = rs.Fields(5)
Text4.Text = rs.Fields(6)
Text5.Text = rs.Fields(10)
Text6.Text = rs.Fields(11)
Text7.Text = rs.Fields(7)
Text8.Text = rs.Fields(8)
Text9.Text = rs.Fields(9)
Text10.Text = rs.Fields(12)
Text11.Text = rs.Fields(2)
Text12.Text = rs.Fields(13)
txt_rutadmi = ""
txt_rutadmi.SetFocus
Else
MsgBox "RUT INCORRECTO", vbCritical, "Error"
MsgBox "POR FAVOR,VUELVA A INGRESAR EL RUT", vbCritical, "Error"
End If
End Sub