Recuperacion de Datos (Access2000)

[ANELLITA]

Hola ¡! Tengo el siguiente problema:

En mi db (Access2000), tengo una columna, autonumerica.
Y cuando en mi webform hago la consulta, de esta columna, para que me envie la informacion, me manda el siguiente error:

"No coinciden los tipos de datos en la expresión de criterios. "

De lo cual estoy casi segura, que es por la declaración de estos datos, que en la columna, es autonumerica, como recupero estos datos, o bien, como declaro esta consulta .

Saluditos

[vamp_02]

Hola, extraño tu problema......puedes enviar la base...
[email protected]

[ANELLITA]

Hola ¡!

Mira te envio mi codigo de la consulta, donde de mi db la columna Reporte es una columna autonumerica, y supongo que es por ahi el problemita, ayuda por favor.

Te lo agradecere muchisimo

Saluditos ¡!

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If Not Page.IsPostBack Then
Label4.Text = ""
Cargar_Datos_DataReader()
End If
End Sub
Private Sub Cargar_Datos_DataReader()
Dim objconexion As OleDbConnection
Dim objComando As OleDbCommand
Dim objDataReader As OleDbDataReader
objconexion = New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0. ;DATA SOURCE=" & Server.MapPath("\apps\libro\bd1.mdb"))
objconexion.Open()
objComando = New OleDbCommand("Select Reporte, Nombre From gbc2 Where Reporte = '" & TextBox1.Text & "'", objconexion)
objDataReader = objComando.ExecuteReader()
objDataReader.Read()
objDataReader.Close()
objconexion.Close()
End Sub

Private Sub ImageButton1_Click(ByVal sender As System.Object, ByVal e As System.Web.UI.ImageClickEventArgs) Handles ImageButton1.Click
Acceder_Info_DataReader(TextBox1.ReadOnly.ToString )
End Sub

Private Function Acceder_Info_DataReader(ByVal Id As String)
Dim objConexion As OleDbConnection
Dim objComando As OleDbCommand
Dim objDataReader As OleDbDataReader
Dim report As String
report = TextBox1.Text
objConexion = New OleDbConnection("PROVIDER=MICROSOFT.JET.OLEDB.4.0. ;DATA SOURCE=" & Server.MapPath("\apps\libro\bd1.mdb"))
objConexion.Open()
objComando = New OleDbCommand("Select Nombre from gbc Where Reporte = '" & TextBox1.Text & "'", objConexion)
objDataReader = objComando.ExecuteReader()
objDataReader.Read()
While objDataReader.Read
With Label4.Text
Label4.Text = TextBox1.ReadOnly.ToString
Label4.Text = (objDataReader("Nombre"))
End With
End While
objDataReader.Close()
objConexion.Close()
End Function

End Class