Visual Basic - Que está mal aqui?

Hola a todos

Quisisera que me ayudaran en esto. Tengo que hacer un reporte en Cristal y no la pego una.
En VB trato de filtrar los datos pero no se como enlazarla al cristal

If Option3.Value = True And Combo1.Text <> "Todos" Then
With CrystalReport1
texto = Combo1.Text
Set RSProStock = DBVentas.OpenRecordset("SELECT * FROM Articulos WHERE Proveedor='" & texto & "'", dbOpenDynaset)
.DataSource = RSProStock Aqui me da el error, “No coinciden los tipos”
.Action = 1
End With
End If

Gracias

Carlos