Visual Basic - Sql en un eveto

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

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

La variable tipo la has definido como String y me imagino que el campo TipoExperiencia sera de tipo Texto, luego en la consulta la variable tipo debe de ir entre apostrofes (' " & Tipo & " ' ) y te sobre el & puesto despues del nombre de la variable numexp