Multiples pasos generan errores OLE DB

[natalyro]

Buenos Dias,

Necesito la ultima ayuda debido a que entrego proyecto mañana.

me sale el error:
Multiple-step operation generated errors. chek each OLE DB, status value, if available. No work was done.

ese error me aparece cuando en un combo selecciono una direccion y en el momento que la adiciono me genera el error.

If (Cbo_Dir.Text = "") Then
MsgBox "Debe digitar una direccion de entrega para ese cliente"
Exit Sub
Else
Rs3.Fields("dir_detail_ped") = Cbo_Dir.Text 'AQUI SE GENERA EL ERROR
End If

la consulta del Rs3 es la siguiente:

Cadena_SQL_3 = "SELECT * FROM OEDETAIL_PED_SQL where id_ped='" & Text_Id.Text & "' "

y la consulta que me muestra las direcciones es la siguiente:

Set Rs11 = New ADODB.Recordset
Cadena_SQL_11 = "SELECT addr_1 FROM ARALTADR_SQL where cus_name = '" & Cbo_Cliente.Text & "'"
Rs11.Open Cadena_SQL_11, Connect, adOpenDynamic, adLockPessimistic

If dir = 0 Then
MsgBox "El cliente digitado no tiene una direccion almacenada"
Exit Sub

End If

If dir <> 0 Then
Rs11.MoveFirst
For j = 1 To dir
Cbo_Dir.AddItem Rs11.Fields("addr_1")
Rs11.MoveNext
Next j

End If

Algun Aporte?