Dim DataAdapter1 As New OleDbDataAdapter
Dim DataSet1 As New DataSet
Dim Sql As String = "select * from user"
DataAdapter1.SelectCommand = New OleDbCommand(Sql,Connect)
Try
DataAdapter1.Fill(DataSet1, "show_user")
'ผมว่าที่Bugก็น่าจะเป็นเพราะว่าหลังจากที่คุณDataAdapter1.Fillแล้วคุณไม่ได้ให้ค่าของDatasetหรือป่าว
Catch ex As Exception
MsgBox(ex.Message)
End Try