Uso no válido de la propiedad

¿Este es el código y me da error no se por que si estoy haciendo todo bien me podrían ayudar?

Dim conexion As New ADODB.Connection
Dim registros As New ADODB.Recordset

Private Sub btnagregar_Click()

Set registros = New ADODB.Recordset
conexion.Provider "Microsoft.ACE.OLEDB.12.0"
conexion.Properties("Data Source") = App.Path & "\BDcampos.accdb"
conexion.Open
On Error GoTo Error
registros.Open "INSERT INTO Campos VALUES (" & Val(txtcara.Text) & ", '" & txtraza.Text & "', '" & txttipo.Text & "', '" & txtkg.Text & "','" & txtcampo.Text & "' )", conexion, adOpenDynamic, adLockOptimistic
MsgBox "Animal Agregado a la base de datos", vbInformation, "Insertar"
conexion.Close

End Sub