Dim con As DataEnvironment1
Dim Modo, cadena

Private Sub Guardar_Click()
If Modo = "Nuevo" Then
con.rsvehiculos.Close
    con.rsvehiculos.Open "Select * From vehiculos where placa = 000"
    con.rsvehiculos.AddNew
   con.rsvehiculos.Fields("placa") = t1.Text
    con.rsvehiculos.Fields("tipo") = t2.Text
    con.rsvehiculos.Fields("marca") = t3.Text
    con.rsvehiculos.Fields("modelo") = t4.Text
    con.rsvehiculos.Fields("color") = t5.Text
    con.rsvehiculos.Fields("ano") = t6.Text
    con.rsvehiculos.Fields("fechaing") = t7.Text
    con.rsvehiculos.Fields("descripcion") = t8.Text
    con.rsvehiculos.UpdateBatch adAffectAllChapters
    con.rsvehiculos.Close
    con.rsvehiculos.Open "Select * From vehiculos"
    cadena = t1.Text
    Buscar1 cadena
    End If
If Modo = "Modificar" Then
        con.rsvehiculos.Find "placa ='" & Trim(cadena) & "'"
  con.rsvehiculos.Fields("placa") = t1
 con.rsvehiculos.Fields("tipo") = t2
 con.rsvehiculos.Fields("marca") = t3
 con.rsvehiculos.Fields("modelo") = t4
 con.rsvehiculos.Fields("color") = t5
 con.rsvehiculos.Fields("ano") = t6
 con.rsvehiculos.Fields("fechaing") = t7
 con.rsvehiculos.Fields("descripcion") = t8
        con.rsvehiculos.Update
End If
Modo = ""
ApagarCajas Me
t7.Enabled = False
End Sub


ME DI CUENTA QUE SI SOLO INTRODUZCO DATOS DE DOS CARACTERES EJEMPLO "AA" EN TODOS LOS CAMPOS ME ACEPTA TODO..!! PERO SI ESCRIBO ALGO COMO "PPP" ME MANDA ESE ERROR..!! AYUDA PORFAVOR