VB Code:
Imports System.Data.OleDb
Public Class DataAccess
Public Sub test()
Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=c:\test.mdb")
Dim cmd As New OleDbCommand("SELECT * FROM tblPlayers", cnn)
Dim da As New OleDbDataAdapter()
Dim ds As New DataSet()
'open the connection
cnn.Open()
'set the dataadapter command
da.SelectCommand() = cmd
'fill the dataset
da.Fill(ds)
'write out the data to prove that we did something!
ds.WriteXml("c:\test.xml")
'close the connection
cnn.Close()
'clear up all those objects
ds = Nothing
da = Nothing
cmd = Nothing
cnn = Nothing
End Sub
End Class
Or finish you off!