Visual Basic - Solicito ayuda con un SQL

Hola estoy realizando una aplicacion y cree un SQL para crear una tabla, la custion es que debe de enviar un dato capturado en un combox para la consulta pero no obtengo absolutamente nada, me aparece un error que se esperaba uno, el codigo que utilizo es el siguiente por si alguien me puede ayudar.
dim CodCat as Integer
CodCat = CmbCat.Text
RsCat.FindFirst "Nombre ='" & CodCat & "'"
If Not RsProv.NoMatch Then
CodCat = RsCat.Fields("IdCategoria")
End If
DB.Execute "SELECT Productos.IdProducto,Productos.NombreProd,Productos.Existencia, DetProveedor.IdProveedor into [Temp1] from detProveedor inner join productos on productos.idproducto=detProveedor.idProducto where( detProveedor.idproveedor = 'CodPro' ) "

Lo que podes usar es una propiedad llamada Filter : RsCat.Filter = "Nombre=" & CodCat &
Con eso tiene que andar.
Despues podes preguntar
If RsCat.EOF then
llego al fin del archivo
end if
suerte