Visual Basic para Aplicaciones - ERROR DE OBJETO

Hola, estoy haciendo un formulario en excel el cual esta conectado a una base de acces y cuando aplico la siguiente sentencia para modificar los registros

Private Sub CommandButton1_Click()

rst.Fields!COD = TextBox2
rst.Fields!VENDEDOR = TextBox3

rst.Update
MsgBox "Registro modificado"
rst.MoveFirst
TextBox1 = rst.Fields!ID
TextBox2 = rst.Fields!COD
TextBox3 = rst.Fields!VENDEDOR

End Sub

me da el siguiente error

" se a producido el error 424 en tiempo de ejecucion"

" se requiere un objeto"

y me marca con amarillo la primera linea:

rst.Fields!COD = TextBox2

si alguien sabe como solucionar esto ? por favor avisarme....

lo raro es que al iniciar el formulario yo aplico la sentencia siguiente y me muestra bien los datos

Private Sub UserForm_Activate()

Set cnn = New ADODB.Connection

With cnn
.Provider = "microsoft.jet.oledb.4.0"
.ConnectionString = "data source=C:\Documents and Settings\All Users\Documentos\SISTEMA.mdb"
.Open
End With

Set rst = New ADODB.Recordset

Sql = "select * from VENDEDORES"

With rst
.CursorLocation = adUseClient
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open Sql, cnn, , , adCmdText
End With

TextBox1 = rst.Fields!ID
TextBox2 = rst.Fields!COD
TextBox3 = rst.Fields!VENDEDOR

End Sub

el error puede deberse a que el objeto rst no fue asignado...

Saludos, desde Baires, JuanC