Ayuda Con Codigo

[ERICKA2004]

ESTOY DESARROLLANDO UN SISTEMA Y EN EL FORMULARIO DE ALMACENAR USUARIOS HAY 4 TEXT NOMBRE, CONTRASEÑA, DIRECCION, UNIDAD AL DARLE AL BOTON GUARDAR ME DA UN ERROR
ESTE ES EL CODIGO... USUSRIOS ES LA TABLA A LA Q ESTA CONECTADA LA BASE DE DATOS...

AYUDAME PLEASE...

Private Sub AlmacenarUsuarios_Click()
mensaje$ = " Introduzca Nuevo Usuario para Accesar al Sistema"
reply = MsgBox(mensaje$, vbOKCancel, "AlmacenarUsuario")
If reply = vbOK Then
Text1.SetFocus
USUARIO.Recordset.AddNew
End Sub

[jrp01]

mensaje$ = " Introduzca Nuevo Usuario para Accesar al Sistema"

Tengo duda esto para que?
Mejor pon un inputbox.

Usuario = InputBox("¿Nombre del usuario?")

[ERICKA2004]

SOLO NECESITO EL CODIGO BIEN PARA GUARDAR EN UNA TABLA LLAMADA USUARIOS LA INFORMACION DE NOMBRE CEDULA DIRECCION ID Y CONTRASEÑA ... PERO ME GENERA ERROR... ESTE ES EL CODIGO

Private Sub AlmacenarUsuarios_Click()
mensaje$ = " Introduzca Nuevo Usuario para Accesar al Sistema"*** ES SOLO UN MENSAJE
reply = MsgBox(mensaje$, vbOKCancel, "AlmacenarUsuario")
If reply = vbOK Then
Text1.SetFocus
USUARIO.Recordset.AddNew
END IF
End Sub

[jrp01]

Usas ADO?

Si es asi y suponiendo que Cn es tu conexion a la BD y Rs un recordset, Sql un string hacemos esto:

sql="insert into tu_tabla(campo1,campo2) values(valor1,valor2)"
cn.execute(sql)

De la otra manera:

SQL = "Usuario"
Rs.Open SQL, Cn, adOpenKeyset, adLockOptimistic, adCmdTable
Rs.AddNew
Rs!Campo1 = Valor1
Rs!Campo2 = Valor2
Rs.Update
Rs.Close
Set Rs=Nothing