enlazar en tiempo de ejecucion un datagrid

[choquito]

hola señores, alguien podria decir donde esta el error, sucede que quiero que el datagrid1 se conecte con el origen de datos
en tiempo de ejecucion.

Private Sub form_Activate()
Set DataGrid1.DataSource = Nothing \\\'esto lo desconecta del origen de datos
DataGrid1.ReBind \\\'esto redibuja el control sin datos claro
   
   With DataZaga.rsCmdClientes
        If .State = adStateOpen Then
        .Close
        End If
    End With
   
   With DataZaga.rsCmdClientes
        If .State = 0 Then
        .Open
        End If
    End With
    
    Set DataGrid1.DataSource = DataZaga.rsCmdClientes \\\'conectar nuevamente
End Sub



saludos