[VB.NET] Problema con le Function.

[ladyBlu]

Ragazzi, oggi proprio non so cosa farei se non ci foste voi ad aiutarmi.

Ho un altro problema con VB.Net.

Devo chiamare una Function, ma mi da errore.
Vi posto il mio codice:

DTPDal = PrimaData()

Public Function PrimaData()

        Dim RSPrimaData As ADODB.Recordset, miaSQL As String

        miaSQL = "select min(tbscadenzario.datascadenza) as" & _
                 " miaDataIniziale from tbscadenzario"

        RSPrimaData = New ADODB.Recordset()
        RSPrimaData.Open(miaSQL, miaConn, 1, 3)

        If RSPrimaData.RecordCount = 0 Then
            Return Today
        Else
            If IsDBNull(RSPrimaData(0)) Then
                Return Today
            Else
                Return RSPrimaData(0)
            End If
        End If

    End Function

e il codice errore che mi esce fuori sull'istruzione in rosso:
"Eccezione non gestita di tipo "System.InvalidCastException" in Scadenzario.exe
Informazioni aggiuntive: Cast specificato non valido."

ma che significa?

Grazie ragazzi.