olá a todos preciso de ajuda na conexao do datagrid via codigo já tentei o codigo abaixo mas ele so apresenta o cabecalho da base de dados...
Private Sub Command2_Click()
abrir
Dim i As Integer
DataGrid1.Columns.Add (0)
For i = 0 To rs.Fields.Count - 1
DataGrid1.Columns(i).Caption = rs.Fields(i).Name
Next
Set DataGrid1.DataSource = rs
DataGrid1.Refresh
Set rs = Nothing
db.Close: Set db = Nothing
End Sub
Agradeço a vossa atenção...