Visual Basic - Esta clase no acepta automatizacion. AYUDAAA!!!!!!

Alguien ayude a este pobre diablo.
Quiero llamar una bd y extraer los datos de un grid y estoy haciendo es esto:
La BD se llama Clientes.MDB
La Tabla se llama Vehiculos

En el Activate del Form pongo el Dbgrid en Falso

En las declaraciones declaro (valgame la Rebusnancia): Dim Rec as ADODB.Recordset

Y en el Load del Form va lo siguiente:

Private Sub Form_Load()
Dim TOPCORNER As Integer
Dim LEFTCORNER As Integer
If Form8.WindowState <> 0 Then Exit Sub
TOPCORNER = (Screen.Height - Form8.Height) \ 2
LEFTCORNER = (Screen.Width - Form8.Width) \ 2
Form8.Move LEFTCORNER, TOPCORNER

Dim Path_db As String
Dim Conn As ADODB.Connection

Set Rec = New ADODB.Recordset
Set Conn = New ADODB.Connection

Path_db = App.Path + "\CLIENTES.MDB"

Conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & Path_db & ";" & "Persist Security Info=False"

Conn.Open
With Rec
.ActiveConnection = Conn
.CursorLocation = adUseClient
.LockType = adLockOptimistic
.CursorType = adOpenKeyset
.Source = "SELECT * FROM Vehiculos"
.Open
End With
Set DBGrid1.DataSource = Rec
End Sub

Y en la penultima linea (Set DBGrid1.DataSource = Rec) me marca "Esta clase no acepta automatizacion"

Que sera?

Gracias.

estas seguro d q se llama DBGrid1 y no DataGrid1.

Si meti el Dbgrid porque es el que estoy usando en el programa, o tiene que ser un DataGrid?

Hola Carlos te envie tu programa modificado, no se si lo has recibido
el AFIN que sirve es el enviado la 3º vez
el generador de CLAVES es el enviado la 1ª vez
necesito me confirmes que lo has recibido.
Saludos