Visual Basic - Ingresar a bd

Hola.
amigos he tratado de resolver este problema varias veces y la verdad es que no he podido.

Intento agregar los registros a una base datos acces y me genera un error de sintaxis les muestro mi codigo por si pueden ayudarme por favor.

Private Sub Command1_Click()
Dim recset_insert As Recordset
Set recset_insert = New Recordset

If Text2.Text = "" Then
MsgBox "INGRESE EL NOMBRE DEL USUARIO"
Text2.SetFocus
ElseIf Text3.Text = "" Then
MsgBox "INGRESE EL NOMBRE DE USUARIO"
Text3.SetFocus
ElseIf Text7.Text = "" Then
MsgBox "INGRESE EL PASSWORD DEL USUARIO"
Text7.SetFocus
ElseIf Text5.Text = "" Then
MsgBox "INGRESE LA FECHA"
Text5.SetFocus
ElseIf Combo2.Text = "Seleccione" Or Combo2.Text = "" Then
MsgBox "SELECCIONE EL TIPO DE CUENTA DE USUARIO"
Combo2.SetFocus
Else
consulta = "SELECT count(USU) as Existe FROM INGRESo WHERE USU = '" & Text3 & "' "
recset_insert.Open consulta, conexion, adOpenDynamic
If recset_insert!Existe = 1 Then
MsgBox "Ya existe registro de este Usuario !!!"
recset_insert.Close
Else
recset_insert.Close
consulta = "INSERT INTO ingreso (nombre,usu,password,fecha,tipo_cuenta,usuario) VALUES ('" & Text2 & "','" & Text3 & "','" & Text7 & "','" & Text5 & "','" & Combo2 & "','" & Text6 & "')"
recset_insert.Open consulta, conexion, adOpenDynamic

MsgBox "Usuario Registrado !!!"

End If
End If

no tienes porque usar un recordset para una insercion de este tipo, los recordset se usan mas para las consultas.

lo que debes hacer es usar un objeto command o un connection. como tu tienes el connection tu codigo quedaria asi

conexion.execute consulta