Problema para insertar datos enteros

[natyvydaddd]

Estoy utilizando archivos .bdf de vfp y el codigo que utilizo es el siguiente:
'Try
Dim insertole As String = "insert into ad_reqi(numreq,descri)values(?,?)"
Dim updateole As String = "update ad_reqi set descri=?"
Dim conexion As New OleDbConnection("provider=vfpoledb.1;data source=C:\requisiciones\ad_reqi.dbf;")
Dim adaptador As OleDbDataAdapter = New OleDbDataAdapter
Dim insertar As OleDbCommand = New OleDbCommand(insertole, conexion)
adaptador.SelectCommand = insertar
insertar.Parameters.Add("@numreq", OleDbType.VarChar).Value = TextBox1.Text
insertar.Parameters.Add("@descri", OleDbType.VarChar).Value = TextBox3.Text
Dim cust As Data.DataSet = New DataSet
adaptador.Fill(cust, "ad_reqi")
Catch ex As Exception
Response.Write("Error" & vbCrLf & ex.Message)
End Try

este codigo no me marca error pero cuando rebiso la tabla a la que acceso para verificar que realmente se este guardando la informacion, en el campo de numreq que es entero me lo guarda con asteriscos, que podria estar mal. Gracias de antemano