A function that return a datatable using VB.NET:
Dim daEmployees as newOleDb.OleDbDataAdapter
Dim dt As New DataTable
Dim cn As New OleDb.OleDbConnection("you connection string")
Public Function GetAllEmployees() As DataTable
Dim pk(0) As DataColumn
daEmployees = New OleDb.OleDbDataAdapter("Select * from Employees", cn)
dt.Clear()
daEmployees.Fill(dt)
pk(0) = dt.Columns("ID")
dt.PrimaryKey = pk
cn.Close()
Return dt
End Function
