John_Blut

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...