July's Course of the Month is now available! Enroll to learn HTML5 and prepare for certification. It's free for Premium Members, Team Accounts, and Qualified Experts.
Sub Fill_Supplier_DGV() Try Dim sSQL As String sSQL = "SELECT * FROM Suppliers" Dim connection As New OleDbConnection(ConnectionString) Dim dataadapter As New OleDbDataAdapter(sSQL, connection) Dim ds As New DataSet() connection.Open() dataadapter.Fill(ds, "Suppliers_table") connection.Close() Me.Supplier_DataGridView.DataSource = ds Me.Supplier_DataGridView.DataMember = "Suppliers_table" Catch ex As Exception MsgBox(ex.Message) End Try End Sub
Add your voice to the tech community where 5M+ people just like you are talking about what matters.
Join the community of 500,000 technology professionals and ask your questions.