Visual Basic - sentencia insert

Hola estoy intentando insertar en una base de datos acces unos datos que introduce el usuario, el problema es que mi sentencia insert no esta bien y no tengo ni idea de porque, alguien sabe que esta mal? muchisimas gracias

Set cnn = Nothing
Set rs = Nothing
' Crear los objetos
Set cnn = New ADODB.Connection 'declaración de la conexion
Set rs = New ADODB.Recordset 'creación del recordset
' para saber que b.d abrir tenemos el ConnectionString
cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & sPath & ";" & _
"Mode=ReadWrite|Share Deny None;" & _
"Persist Security Info=False;Jet OLEDB"

cnn.Open sPath 'abrir la bd

'''''''''''''''''''''''''''''''''''''''''''''''''''''
rs.open "InSERT INTO UNIDAD_DOCUMENTAL Values ('" & IIf(IsNull(txtTitulo) Or txtTitulo = '', " ", txtTitulo) & "', '" & IIf(IsNull(txtAutor) Or txtAutor = '', " ", txtAutor) & "', '" & IIf(IsNull(txtCategoria) Or txtCategoria = '', " ", txtCategoria) & "')"
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''

usa cnn.Execute "INSERT INTO............." en lugar de rs.open

Exacto, puedes usar el objeto conecction o el command, ambos tienes el metodo execute con retorno de filas y sin retorno, y/o mucho mejor procedimientos almacenados, obvio dependiendo de tu Motor de Base de Datos, ojo de que debes aplicar correcto ingreso a los campos, ya sea de tipo Cadena, Número o Fecha.