konvertering af data fra real til Datetime.

Jeg skal flytte data fra et felt i en tabel til et felt i en anden tabel, i samme database. Det er en dato som i det ene felt har type real, og i den anden tabel har det typen datetime.
Jeg gør det på følgende måde.
    Dim i As Integer
        For i = 0 To resultat.Tables(0).Rows.Count() - 1
            'Dim idnr As Integer = resultat.Tables(0).Rows(0).Item(0)
            'Dim em As String = resultat.Tables(0).Rows(0).Item(1)
            'Dim rapdate As Single = resultat.Tables(0).Rows(0).Item(2)
            'Dim rekvi As String = resultat.Tables(0).Rows(0).Item(3)
            Dim opfcom As New OleDbCommand
            opfcom.Connection = overfør
            'opfcom.CommandText = "update metadb.me_dokumenter set titel = '" & em & "', prod_dato =" & rapdate & ", rekvirent = '" & rekvi & "' where dok_id = " & idnr & ""
            opfcom.CommandText = "update metadb.me_dokumenter set titel = '" & resultat.Tables(0).Rows(0).Item(1) & "', prod_dato =" & resultat.Tables(0).Rows(0).Item(2) & ", rekvirent = '" & resultat.Tables(0).Rows(0).Item(3) & "' where dok_id = " & resultat.Tables(0).Rows(0).Item(0) & ""
            opfcom.ExecuteNonQuery()
        Next

Problemet er at dato som er 1977 i real feltet bliver til 01-06-1905 i date time feltet.

Hvordan får jeg det konverteret.