01.Public Shared Function Database(ByVal SqlCommand As String) As DataSet
02. Dim oConn As OleDbConnection
03. Dim oComm As OleDbCommand
04. Dim oData As OleDbDataAdapter
05. Dim resultSet As New DataSet
06. Dim oConnect, oQuery As String
07.
08. oConnect = "Provider = Microsoft.JET.OLEDB.4.0; Data Source = Database/Database.mdb"
09. oQuery = SqlCommand
10.
11. oConn = New OleDbConnection(oConnect)
12. oComm = New OleDbCommand(oQuery, oConn)
13. oData = New OleDbDataAdapter(oQuery, oConn)
14.
15. Try
16. oConn.Open()
17. oData.Fill(resultSet)
18. oConn.Close()
19. Catch ex As Exception
20. MessageBox.Show(ex.Message, "ข้อผิดพลาด")
21. End Try
22.
23. Return resultSet
24. End Function
