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

The DataSource should be set to the DataSet and not the DataAdapter.