shihans

Bueno me da el error en este trozo del cogido... If List1.ListIndex <> -1 Then txt = "SELECT * " & _ "FROM AnimalesPropios " & _ "WHERE list1.listindex " Set RS = DB.OpenRecordset(txt) tnombre.Text = RS("nombre completo") end if Justamente me marca...