FireBird com VB

[Davidsp 0]

Boa noite pessoal,

 

Sou novo em VB e estou tentando utilizar o FireBird como meu BD e na hora de trazer os registros de uma tabela para o DBGrid ocorre o seguinte erro:

 

Class does not support Automation or does not support expected interface.

 

Vou colocar abaixo o fonte:

 

Modulo
Sub abre()
Dim Con As New ADODB.Connection
Dim RS As ADODB.Recordset

Set RS = New ADODB.Recordset

Con.Open "Provider=ZStyle IBOLE Provider;Data Source=E:\Meus Programas\Despertador\DESPERTA.gdb;UID=SYSDBA;password=masterkey"

RS.Open "SELECT * FROM CADFUNCIONARIO;", Con

Set CadFunc.DBGrid1.DataSource = RS   ------ O erro ocorre nesta linha

RS.Close
Con.Close
End Sub


Form
Private Sub Form_Load()
    Call abre
    grid_inicial
End Sub

Obrigado pela ajuda.

[Claudio Neto 3]

O que é o objeto cadfunc?

Acho que ele está a mais ali.

[Desaweb 0]

Vá em Project -> References. Verifique se há uma referência ao ActiveX Data Objects 2.x Library.