Grabar Datos en BD

[RsOfT]

Tengo:
Dim CnDatos As New ADODB.Connection
Dim RsTblDatos As New ADODB.Recordset

Mi Base de datos se llama Datos y la Tabla se llama TblDatos. El nombre en el ODBC es dbDatos.

Tengo varios textbox, y quiero guardar la info de esos textbox en la BD, como lo hago, eh probado con la siguiente rutina, pero no funciona, ni tampoco da error, mencle un poco de ASP en el asunto :) a ver si la pegaba:

CnDatos.Open "dbDatos"
RsTblDatos.Open "TblDatos", CnDatos, 3, 3

If MsgBox("Guardar Datos", vbYesNo + vbQuestion, "Registro de Datos") = vbYes Then
If RsTblDatos.BOF And RsTblDatos.EOF Then
RsTblDatos.AddNew
RsTblDatos("Nombre") = TxtNombre.Text
RsTblDatos("Direccion") = TxtDireccion.Text
RsTblDatos("TelCasa") = TxtTelCasa.Text
RsTblDatos("TelTrabajo") = TxtTelTrabajo.Text
RsTblDatos("TelCelular") = TxtTelCelular.Text
RsTblDatos("EMail") = TxtEmail.Text
RsTblDatos("PaginaWeb") = TxtPaginaWeb.Text
RsTblDatos("Tipo") = CmbTipo.Text
RsTblDatos("Nota") = TxtNota.Text
RsTblDatos("Fecha") = DtpFecha.Value
RsTblDatos.Update
End If
End If

Que debo hacer?
Quisiera hacerlo con sentencia SQL, alguien sabe? Como trabajo con Insert Into?

.::RsOfT::.
--El que se aferra a lo conocido, nunca conocerá lo desconocido--
--Es intentando lo imposible como se realiza lo posible--
--Es de pesimo gusto contentarse con algo mediocre cuando lo excelente esta a nuestro alcance--