SoloCodigo

Coloco este código en la parte de combo1.click para seleccionar el nombre de prueba y buscarla en la base de datos y ademas insertar el caso de prueba donde esta la prueba y el codigo correspondiente pero no me resulta ....

ESTE ES EL CODIGO:


Private Sub Combo1_Click()
Dim Sql  As String
Call conexion(cnn1)
Set rs = Nothing

   Sql = "Select  Código_especificación,nombre_prueba  From Especificar_calendario_plazos "
   Sql = Sql & " Where Código_especificación = " & Cod
   rs.Open Sql, cnn1, adOpenStatic
   With rs
  .Find "nombre_prueba='" & Combo1.Text & "'"
   If Not .EOF Then
      MsgBox "Encontro la prueba "
    cnn1.Execute " update Especificar_calendario_plazos set nombre_caso_prueba='" & in_caso_prueba & "' where nombre_prueba='" & Combo1.Text & "'"
        Else
      MsgBox "No  encontro la prueba"
   End If
  End With


End Sub



ESTA ES LA TABLA QUE TENGO EN LA BASE DE DATO:

Código_especificación      nombre_prueba   nombre_caso_prueba
                           170380                     pruebaejemplo      





CON ESTE CODIGO NO ME TIRA NINGUN ERROR, AL SELECCIONAR EL NOMBRE DE PRUEBA DEL COMBOBOX (pruebaejemplo)ME MUESTRA EL MENSAJE  ENCONTRO LA PRUEBA, Y DESPUES DEBO INGRESAR EL CASO DE PRUEBA EN UN TEXTBOX.


DESPUES VEO LA BASE DE DATO Y ME MUESTRA QUE INSERTO OTRO REGISTRO CON EL CODIGO Y EL CASO DE PRUEBA, PERO EL CAMPO NOMBRE PRUEBA ESTA VACIO, ESO NO ES LO QUE DEBIERA HACER.



ESTO ES LO QUE ME MUESTRA EN LA TABLA O LO QUE HACE ESTE CODIGO


Código_especificación      nombre_prueba   nombre_caso_prueba
                           170380                     pruebaejemplo      
                           170380                                               casopruebaejemplo



ME ENTIENDEN?? AYUDENME A SOLUCIONAR EL PROBLEMA PORFAVOR..