FireBird com VB

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.