So bene che bestemmierò!

Ho adattato questo codicello:
codice:
Imports System.Data.OleDb
Imports System.Windows.Forms
....

        Dim dataMinima As Date
        Dim ConnString As String = My.Settings.DatabaseTMOrarioConnectionString
        Dim Cn As New OleDbConnection(ConnString)
        Cn.Open()
        If Cn.State = ConnectionState.Open Then
            Dim sql As String = "select Min(Data) as MinData from TabellaGiornata where RifSettimana = " & PagOrarioAllenamento.RIFSettimanale
            Dim cmd As New OleDbCommand(sql, Cn)
            Dim dr As OleDbDataReader = cmd.ExecuteReader
            Do While dr.Read()
                dataMinima = dr.Item("MinData")
            Loop
        End If
        Cn.Close()
        MsgBox(dataMinima)
e funziona tutto bene!
Infatti mi da quello di cui ho bisogno, cioè per il momento la data più piccola tra i riferimenti di 'RifSettimana'.
Ma vorrei impostare la ricerca usando BindingSource e TableAdapter già esistenti e autogenerati in vb, poiche ormai ho basato tutto il progetto su questi.
Poi altra cosa, nel modo sopra scritto, vengono cercati tra valori salvati nella tabella, mentre usando la tabella del veramente attiva nel progetto riesco a cercare anche tra valori non aggiornati del db ma presenti nella tabella...spero di essermi spiegato!

Ciao