Erro em tempo de execução "48"

erro ao carregar dll

este erro parece quando clico na cx de combinação para pesquisar um nome cadastrado


codigo da cx de combinação

Private Sub bcel_AfterUpdate()
'Encontrar o registro que coincide com o controle.
Dim RS As Object
Set RS = Me.Recordset.Clone
RS.FindFirst "[CODUSUARIO] = " & Str(Me![bcel])
Me.Bookmark = RS.Bookmark

End Sub

Boas...

Alguma OCX ou DLL não esta registrada. Se tiver em outro micro (micro de cliente, micro de rede ), tem que registrar a OCX ou DLL faltante.

José


Não é que seja esse o problema, mas pode até ser, então é bom fazer pelo certo.

Private Sub bcel_AfterUpdate()
'Encontrar o registro que coincide com o controle.
Dim RS As Recordset
Set RS = Me.Recordset.Clone
RS.MoveFirst
RS.FindFirst "[CODUSUARIO] = '" & Str(Me![bcel]) & "'"
Me.Bookmark = RS.Bookmark