รายละเอียดของการตอบ ::
คือตอนนี้ผมก็สร้าง module ไว้แล้วนะครับ ไม่ทราบว่าเหมือนกันไหม๊ ^^!!
Imports System.Data.OleDb
Imports System.Data.SqlClient
Module Connection
Dim STRCON As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=D:\Service.mdb"
Function CPU(ByVal sql As String) As DataTable
Dim dtAdapter As OleDbDataAdapter
Dim objConn As New OleDbConnection
Dim dt As New DataTable
objConn.ConnectionString = STRCON
objConn.Open()
dtAdapter = New OleDbDataAdapter(sql, objConn)
dtAdapter.Fill(dt)
objConn.Close()
objConn = Nothing
Return dt
End Function
End Module