Visual Basic - ERRORRR!!!!!!

error 430 : Esta clase no acepta automatizacion
¿ALguien me puede decir porque no puedo llenar el objeto con una tabla??. Os pongo el código, gracias.

Dim MyConexion As New ADODB.Connection
Dim rstClientes As New ADODB.Recordset

Private Sub Form_Load()

MyConexion.Open \"DSN=SISTEMAS_CIM;UID=ORDFAB;PWD=ORDFAB\"
rstClientes.Open \"SELECT * FROM JAVI\", MyConexion, adOpenDynamic
Set DBGrid1.DataSource = rstClientes
End Sub

Me parece que el error esta en que el dbgrid solo acepta en el datasource un data control no un recordset del tipo adodb., vas a tener que agregar un data control en tu forma lo configuras y luego le haces el

Set dbgrid1.datasource= Nombre del data.

Espero que esto te ayude.

GRACIAS, tienes toda la razon.bye