Visual Basic - Porque no funciona

hola muy buenas tengo uqe hacer un mantenimiento de una base de datos de una asociacion, el codigo esta escrito pero no consigo que al dar los datos de alta se me inserten en access.

Este es el codigo de alta:
Private Sub Cmd_alta_Click()
If Text_turno <> "" And Text_empleado <> "" And text_fechainiciote <> "" And Text_fechafinte <> "" And Text_horasextras Then
conectar
rs.Open "select codtur from turno_empleado where codtur='" & Text_turno & "', con"
If rs.EOF Then
con.Execute "insert into turno_empleado values (" & Text_turno & ", " & Text_empleado & ", '" & Text_fechainite & "', '" & Text_fechafinte & "', " & Text_horasextras & ")"
borrarcampos F_trabaja
Else
MsgBox "Existe el turno"
End If
cerrar
End If
End Sub
Me gustari en vez de hacer el codigo de turno y de empleado text, poner combo pero ya se me complica mucho, podeis echarme un cable?

gracias, contestar a [email protected]