Visual Basic - Sql en VBA

Buenas tardes gente del foro. Que raro otra vez por aki jejeje. Se nota que soy nuevo en esto jejejeje. Bueno he aqui mi nueva duda. Mirar el siguiente modulo:

Private Sub Cuadro_combinado24_BeforeUpdate(Cancel As Integer)
Dim tipo As String
Dim numexp As Integer
Dim ide As Integer
tipo = [TipoExperiencia]
numexp = [Nº Expte]
Dim cn As New ADODB.Connection
cn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:Documents and SettingsProfesorMis documentosd2.mdb"
Dim rs As New ADODB.Recordset
rs.Source = "CV_ExpLaboral"

rs.Open "Select IdeExp from CV_ExpLaboral where TipoExperiencia="&tipo&"and NºExpete ="&numexp&,cn

Creo que el proceso para hacer una consulta en un evento es así. PEro m da un error en la ultima linea, en la de la consulta sql. Que error estoi cometiendo¿?¿? Otra de mis dudas es ¿Como cogo el valor de la consulta y lo introduzcico en la variable ide?
Si ven mas errores me los podeis comentar, para así subsanarlos

Gracias a todos y saludos

jejeje lo k tenes kaser es un jejeje es k a lo mejor no le estas poniendo jejeje los separadores correctos jejeje a tu consulta jejeje

el error k'estoi kometiendo el como coges el valor de la consultas y lo introduzcices en la variable ide.

xDxDXd

Asumiendo que la tabla se llama "CV_ExpLaboral" y que solamente quieres mostrar el campo "IdeExp" y que los campos "TipoExperiencia" y "NºExpete" de dicha tabla son de tipo numérico, la consulta sería así:

"Select IdeExp from CV_ExpLaboral where TipoExperiencia= " & tipo & " and NºExpete =" & numexp, cn

Rafa: Intenta de esta forma ....
rs.Open "Select IdeExp from CV_ExpLaboral where TipoExperiencia=' " & tipo & " ' and NºExpete =' " & numexp & " ' ",cn

pon atencion en donde se abren y cierran las comillas ( " ) y te faltan apostrofos ( ' ). Para pasar el resultado a una variable usa esto .. ide= rs.fields("IdeExp").

Me cuentas como te fue.
saludos

Otra cosa que se me paso observar es en la declaracion del recordset
para declararlo se hace asi: Dim rs As ADODB.Recordset.
Luego tienes que inicializarlo, lo haces asi: Set rs = New ADODB.Recordset