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