Visual Basic - Problema con combo

Hola, ¿Que tal? DIsculpen las molestias ...
Resulta que en uno de los forms, tengo un combo . En el Form_Load cargo el combo con distintas posibilidades de busqueda...Ej, Nombre, Apellido, Fecha, UltimoNombreMetido...
Mi idea es la siguiente, cuando yo selecciono UltimoNombreMetido, hago una busquede en BD access, y quiero que me muestre el resultado en un textBox...
Lo hago pero me sale el siguiente error: Visual basic ha detectado un problema...

¿Que podria hacer?

Gracias de antemano

pudes mostrar el codigo? para evaluar!!

Si no te importa, te puedo mandar el ejmplo a tu cuenta?

Gracias de antemano

¿Tan dificil es ponerlo aquí? Tendrás mas posibilidades de que te contesten

...y además, así aprendemos todos!

Es cierto, no lo queria poner, pues es algo largo, pero hay va.
El problema es que me aparece un error que dice Visual Basic ha detectado un problema y debe cerrarse...

Private Sub cmbBuscar_Click()

Dim WDB As Connection, User, User2, User4, User3, UserN As Recordset, SQL, SQLN, SQL4, SQL2, SQL3 As String, NewItem As ListItem
Dim sbuscar As String

Dim ID As Long

If Me.cmbBuscar.Text = "Última Dolencia" Then
lblPersonalizado.Caption = "Introduzca la Dolencia"
cmdFecha.Visible = False
txtBusqueda.Text = ""
txtBusqueda.Enabled = True


'Se crean las instancias a los objetos conexión y recorset.
Set WDB = New Connection
Set User = New Recordset
Set User2 = New Recordset
Set User3 = New Recordset
Set User4 = New Recordset
Set UserN = New Recordset
'Abre la conexión asignando el tipo de modelo de datos.
WDB.Open ("Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & App.Path & "BDEjem.mdb")

SQLN = "SELECT codigo FROM Pacientes WHERE Nombre LIKE '" & txtPaciente.Text & "'"
Set UserN = WDB.Execute(SQLN)
ID = UserN!codigo


SQL = "SELECT MAX(id_informe) FROM Informe WHERE cod_Paciente = " & ID & " "
Set User = WDB.Execute(SQL)

If (User.BOF And User.EOF) Then
MsgBox "No hay ningún dato", vbExclamation, "Resultado"
'Cierra la conexion y libera los objetos.
User.Close
WDB.Close
Set User = Nothing
Set WDB = Nothing
Exit Sub
Else

'Do Until User.EOF
SQL2 = "SELECT MAX(linea) FROM informe WHERE id_informe LIKE '" & User.Fields(0) & " '"
Set User2 = WDB.Execute(SQL2)
SQL3 = "SELECT cod_dolencia FROM informe WHERE id_informe LIKE '" & User.Fields(0) & " ' and linea LIKE '" & User2.Fields(0) & " '"
Set User3 = WDB.Execute(SQL3)
SQL4 = "SELECT Nombre FROM dolencia WHERE cod_dolencia LIKE '" & User3!cod_Dolencia & " "
Set User4 = WDB.Execute(SQL4)

' Loop
Me.txtBusqueda.Text = User4!Nombre
End If
User2.Close
User3.Close
User4.Close
WDB.Close
Set User2 = Nothing
Set User3 = Nothing
Set User4 = Nothing
Set WDB = Nothing
End If

End Sub