Visual Basic - Que está mal aquí?

Hola a todos

Alguien me podria decir donde esta el error?

Texto = Combo1.Text
Set RSVen = DBVentas.OpenRecordset("SELECT * FROM Articulos WHERE Proveedor=" & Texto, dbOpenDynaset)

Gracias
Carlos

Cambia lo siguiente

Proveedor= " & Texto , dbOpenDynaset)

Por

Proveedor= ' " & texto & "' ", dbOpenDynaset)