G
Garry
Private Sub Button_A_Click(ByVal sender As Object, ByVal e
As System.EventArgs) Handles Button_A.Click
Imports System.Data.OleDb
Dim strSQL As String = "Select * From Customers"
Dim Connection As New OleDbConnection(strConnection)
Dim DA As New OleDbDataAdapter(strSQL, Connection)
Dim DS As New DataSet
DA.Fill(DS, "Customers")
dgrdProjects.DataSource = DA
End Sub
As System.EventArgs) Handles Button_A.Click
Imports System.Data.OleDb
Dim strSQL As String = "Select * From Customers"
Dim Connection As New OleDbConnection(strConnection)
Dim DA As New OleDbDataAdapter(strSQL, Connection)
Dim DS As New DataSet
DA.Fill(DS, "Customers")
dgrdProjects.DataSource = DA
End Sub