Problema para updatear una tabla

Hola a todos,

tengo un problema a la hora de acceder a una tabla de Oracle, dejo el trozo
de código y explico donde falla:
'Reservas
Dim cnn1 As ADODB.Connection
Dim rsPlatos As ADODB.Recordset
Dim strCnn As String
'Vbles para obtener el código de personal y la tarjeta
Dim strCodigo, strTarjeta As String
Dim intNombre, intCodigo, intTarjeta As Integer
'Vble para hacer la conversión de fecha dd/mm/yyyy -> yyyymmdd
Dim strFecha As String

strCnn = "Provider=OraOLEDB.Oracle;User ID=system;Password=pwd000;Data
Source=ssst1"
Set cnn1 = New ADODB.Connection
cnn1.Open strCnn

MsgBox "5"

' Abre la tabla zitacomedor
Set rsPlatos = New ADODB.Recordset
With rsPlatos
Set .ActiveConnection = cnn1
.CursorType = adOpenKeyset
.LockType = adLockOptimistic
.Open "ssst1.zitacomedor", cnn1, , , adCmdTable
End With

MsgBox "6"

strFecha = Right(TextFecha, 4) & Right(Left(TextFecha, 5), 2) &
Left(TextFecha, 2)
With rsPlatos
.AddNew
.Fields("Mandt").Value = 300
.Fields("Sociedad").Value = 1100
.Fields("Fecha").Value = strFecha
.Fields("Plato11").Value = TextPlato11.Text
.Fields("Plato12").Value = TextPlato12.Text
.Fields("Plato21").Value = TextPlato21.Text
.Fields("Plato22").Value = TextPlato22.Text
.Update
End With

.
Me pasa que después del msgbox 6 me dice que la tabla no existe pero sin
embargo sí que me guarda el registro
Si alguien se le puede ocurrir algún error que esté comentiendo me sería de
mucha ayuda.

Muchísimas gracias por vuestra ayuda.