Certo ad esempio:
codice:
Dim con As OleDb.OleDbConnection
Dim da As OleDb.OleDbDataAdapter
Dim ds As New DataSet
Dim query As System.Data.OleDb.OleDbCommand
Public Sub estrai(ByVal id As Integer)
con = New OleDb.OleDbConnection("Provider=Microsoft.JET.OLEDB.4.0;Data Source=C:\Data\TuoDatabase.mdb")
con.Open()
query = New System.Data.OleDb.OleDbCommand
query.Connection = con
query.CommandType = CommandType.Text
query.Parameters.AddWithValue("@id", id)
query.CommandText = "SELECT * FROM TuaTabella WHERE id=@id"
da = New OleDb.OleDbDataAdapter(query)
da.Fill(ds, "Nome")
'Numero dei record trovati
Dim count as Integer = ds.Tables("Nome").Rows.Count
'Primo record
Dim valore as string = CType(ds.Tables("Nome").Rows(0).Item("NomeColonna"), String)
End Sub