Hola
puedes realizar la busqueda de un registro por un campo (en este caso folio) previamente a la operacion de guradar.. como una validacino premiliar
el video
Leccion 15: Búsqueda de Registro de Usuario
te ayudara a realizar busquedas de registro.
Si existe el registro quiere decir que el folio ya existe.
saludos

hola otra vez tengo este codigo el cual me funciona perfecto pero como lo adapto al codigo que le mostre en la pregunta inicial, el cual por cierto lo copie de uno de sus videos tutoriales gracias de antemano

If Text11.Text = "" Then
MsgBox "CAMPOS VACIOS...", 48
Text11.SetFocus
Else
Set bd = OpenDatabase(App.Path + "\verifik.mdb")
Set tabla1 = bd.OpenRecordset("actuales", dbOpenDynaset)
tabla1.FindFirst "FOLIO = '" & Text2.Text & "'"
'tabla1.FindFirst "FOLIO = " & Text1.Text
FOLIO = "&VAL(CLAVE.TEXT)"
If Not tabla1.NoMatch Then
MsgBox "EL FOLIO YA EXISTE...", 48
SendKeys "{home}+{end}"
Text2.SetFocus
Exit Sub
Else
With tabla1
.AddNew
.Fields("FOLIO") = Text2.Text
.Fields("PLACAS") = Text3.Text
.Fields("MARCA") = Text4.Text
.Fields("SUBMARCA") = Text5.Text
.Fields("PRECIO") = Val(Text6.Text)
.Fields("FECHA") = DTPicker1
.Fields("NOMBRE") = Text7.Text
.Fields("DOMICILIO") = Text8.Text
.Fields("ESTADO") = Text9.Text
.Fields("MUNICIPIO") = Text10.Text
.Fields("CODIGO") = Text11.Text
.Fields("HORA") = Text12.Text
.Update
End With
MsgBox "VEHICULO DADO DE ALTA...", 48
End If
SendKeys "{home}+{end}"
Text2.SetFocus
End If