Salve a tutti.

Avrei la necessità, per eseguire dei controlli, di leggere il valore di un campo da ogni tabella del mio mdb.

Vorrei non ripetere tante volte il codice e così pensavo di creare una funzione a cui passare il nome della tabella ed il nome del campo da leggere.

Questo il codice:

codice:
Private Function controlla_cos(ByVal cd As String, ByVal cpcod As String) As Boolean
        Dim strCN As String = stringaconn
        Dim sqlSelectDefault As String = "SELECT * FROM " & cd
        Dim CN As New OleDb.OleDbConnection(strCN)
        Dim DA As New OleDb.OleDbDataAdapter(sqlSelectDefault, CN)
        Dim DS As New DataSet
        DA.Fill(DS, cd)


        DS.Tables(cd).Rows(0).Item(cpcod)
con l'idea che se devo controllare il campo CODcli della tabella clienti chiamerei la funzione con

controlla_cod("clienti","CODcli")

ma se devo controllare il CODfor della tabella fornitori, potrei chiamare la funzione con

controlla_cod("fornitori","CODfor")

e così via.

Ma il codice cosi' funziona fino alla riga

codice:
DS.Tables(cd).Rows(0).Item(cpcod)
in cui ottengo l'errore:

Errore 34 L'accesso alla proprietà deve assegnare un valore alla proprietà o utilizzare quello corrente.


Potreste aiutarmi ?
Grazie