Foro de elhacker.net

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