Problemas con Fechas de archivos BTRIEVE

[steffyn_90]

Buenas Noches...

Soy un poco nueva en el entorno de estos llamado archivos BTRIEVE, y pues mi problema radica en las fechas. Quiero desplazarlos en datagridview pero no puedo porque me marca el error:

los parametros de año, mes y dia describen un campo date time que no se pueden representar

Si me pudieran ayudar fuera genial. Probe tratando de convertir las fechas en string pero no me sale. Me tira un error como que no me identifica el cast y eso que lo probe en una consulta sql normal y si me sale. Por lo que pienso que es demasiado viejo para que funcione. Ya he probado casi de todo...

Aqui les dejo mi codigo por si aun caso:

Código vb:

Imports System.Data.Odbc
 
Public Class Form1
 
 
    Dim consulta As String
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        Dim da As Odbc.OdbcDataAdapter
        Dim tabla As DataTable
        Dim constr As String
        Dim n As String
 
        constr = "DSN=HM; DBQ=C:\LFODBC32\V2.10;CODEPAGE=1252;"
        consulta = "SELECT * FROM FISCYEAR"
        n = consulta
 
        Dim con As New Odbc.OdbcConnection(constr)
        Try
 
            da = New Odbc.OdbcDataAdapter(n, con)
 
            tabla = New DataTable
 
            Dim cmd As New Odbc.OdbcCommandBuilder(da)
            da.Fill(tabla)
            DataGridView1.DataSource = tabla
            DataGridView1.RowHeadersVisible = False
            For Each col As DataGridViewColumn In DataGridView1.Columns
                col.SortMode = DataGridViewColumnSortMode.NotSortable
                col.ReadOnly = True
                If col.GetType Is GetType(DataGridViewImageColumn) Then
                    For Each row As DataGridViewRow In DataGridView1.Rows
                        If row.IsNewRow Then Continue For
                        row.Height = row.Cells("image").ContentBounds.Height + 6
                    Next
                End If
            Next
 
        Catch ex As Exception
            MsgBox(ex.Message)
 
        Finally
            con = Nothing
            'ds = Nothing
            tabla = Nothing
            da = Nothing
 
        End Try
    End Sub
End Class
 

Gracias Gracias si pueden entontrar mi error.