DataGrid
Hola buenas!estoy intentando hacer un simple listado con el control datagrid y no hay maneras que me muestre nada, alguien me podría decir que estoy haciendo mal:
Dim rs As New ADODB.Recordset
Set rs = Pisos()
Set DataGrid1.DataSource = rs
(.bas)
Public Function Pisos() As ADODB.Recordset
Dim rs As New ADODB.Recordset
\'rs.CursorLocation = adUseClient
rs.Open "Pisos", conn, adOpenKeyset, adLockOptimistic, adCmdTable
Set Pisos = rs
Muchas gracias!!!
Dim rs As New ADODB.Recordset
Set rs = Pisos()
Set DataGrid1.DataSource = rs
(.bas)
Public Function Pisos() As ADODB.Recordset
Dim rs As New ADODB.Recordset
\'rs.CursorLocation = adUseClient
rs.Open "Pisos", conn, adOpenKeyset, adLockOptimistic, adCmdTable
Set Pisos = rs
Muchas gracias!!!