No coinciden los tipos :S

[kawakami]

Gracias!! ya puedo acceder a la tabla.. pero ahora me dice"Error 3251. El recordset actual no admite actualizaciones. Puede ser una limitacion del proveedor o del tipo de bloqueo seleccionado" y tengo este codigo

Dim sFichero As String
Dim rs As ADODB.recordset
Dim cnn As ADODB.connection


Private Sub connection()
Set cnn = New ADODB.connection
If cnn.State <> 1 Then
With cnn
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source='" & "C:\Orden\Base de datos\Ordenes.mdb" & "';"
.Open
.CursorLocation = adUseClient
End With
End If


End Sub
Private Sub recordset()
Set rs = New ADODB.recordset
sBus = "SELECT * FROM proveedores"
Set rs = cnn.Execute(sBus)
End Sub


Private Sub CMDAg_Click()
With rs

.AddNew
.Fields("Nombre") = TXTnom.Text
.Update

End With
End Sub

Private Sub Form_Load()
connection
recordset
End Sub