Al querer ejectutar dice no coinciden los tipos de datos en la expresion de criterios

[alexcba]

No soy novato tanto en el foro como en programacion, no se cual es la seccion mas apropiada para poner esto. El ComboBox ya esta cargado de antes.. luego no se porque me da error.

Código:

Public Class form1

    Dim Cadena As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Application.StartupPath & "\BASE.mdb"
    Dim Cnn As New OleDb.OleDbConnection(Cadena)
    Dim ds As New DataSet

Private Sub form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        
        Dim SQL As String
        Dim Numero As Integer = ComboTipoM.SelectedValue
        Cnn.Open()
        SQL = "Select Id, Descripcion From Articulos Where IdTipoMaterial='" & Numero & "'"
        Dim Adapt As New OleDb.OleDbDataAdapter(SQL, Cnn)
     * Adapt.Fill(ds, "Articulos")
       .....
      
        .....
        Cnn.Close()
End Sub
End Class

Me marca error en la linea * Adapt.Fill(ds, "Articulos") y dice: No Coinciden los tipos de datos en la expresion de criterios.
Por supuesto el campo IdTipoMaterial en la BD Access es de tipo Numero y en el Select si le borro la parte del filtro Where IdTipoMateria=... ya no hay problema
.

[emmax]

Que tal alexcba, lo que veo es que estas pasando el dato como si fuera un Texto.

SQL = "Select Id, Descripcion From Articulos Where IdTipoMaterial='" & Numero & "'"

Intenta quitando las comillas ya que como comentas el tipo de dato es Numero.

SQL = "Select Id, Descripcion From Articulos Where IdTipoMaterial=" & Numero

Saludos...