Porque marca error 40002 en ejecución en Visual Basic
 

Mi problema es que necesito asignar a un text el nombre de un curso dependiendo de la clave de curso que se elige, en la forma principal si me carga las claves en el combo, pero cuando intento asignar al text lo que elijo del combo en el evento click me marca error 40002 en ejecución: 22005[Microsoft][controlador ODBC Microsoft access] no coinciden los tipos de datos en la expresión de criterios y al depurar me marca error el la linea
..........................este es el codigo que estoy utilizando..
Set Rs = Cn.OpenResultset(Cs, rdOpenKeyset, rdConcurReadOnly, rdExecDirect)
Del evento click del combo

Tambien entiendo que hay algun error en la linea de la consulta
Cs = "select nom_curso from cursos where cve_curso = " & Combo1.Text & " "


Codigo del module

Option Explicit
Global En As rdoEnvironment
Global Cn As rdoConnection
Global Rs As rdoResultset
Global Cs As String



Sub ConectarBd()

Set En = rdoCreateEnvironment("Cede", "", "")
Set Cn = En.OpenConnection("Cede", rdDriverNoPrompt, False)
End Sub

'***********************
'* Conexion al servidor *
'***********************
Private Sub Form_Initialize()

Call ConectarBd
End Sub


Private Sub Form_Load()

'Carga las claves de los cursos
Cs = "select cve_curso from cursos"
Set Rs = Cn.OpenResultset(Cs, rdOpenKeyset, rdConcurReadOnly, rdExecDirect)
While Not Rs.EOF
Combo1.AddItem (Rs!cve_curso)
Rs.MoveNext
Wend
Rs.Close

End Sub

Private Sub Combo1_Click()
'Carga los nombres de los cursos dependiendo de la clave del curso
Cs = "select nom_curso from cursos where cve_curso = " & Combo1.Text & " "
Set Rs = Cn.OpenResultset(Cs, rdOpenKeyset, rdConcurReadOnly, rdExecDirect)
Text1.Text = (Rs!nom_curso)
Rs.Close
End Sub

agradeceria su ayuda a la brevedad
maili

Respuesta: Porque marca error 40002 en ejecución en Visual Basic
 

Hola, si el campo cve_curso es numérico, escribe la consulta así:

Cs = "select nom_curso from cursos where cve_curso = " & Combo1.Text

Si no lo es, lo pones entre comillas simples:

Cs = "select nom_curso from cursos where cve_curso = '" & Combo1.Text & "'"


:adios: