Visual Basic - PROBLEMAS CON IF!!

EL CODIGO FUNCIONABA BIEN, NO TENIA PORBLEMAS, PERO NOSE KE SUCEDE, CUANDO EJECUTO EL PROGRAMA, LO HACE DOS VECES, EN LA PRIMERA NO AY ERRO, PERO YA CUANDO PASA EN LA SEGUNDA, MI DATA COMBO, KE ES DE DONDE SACO EL DATO A BUSCAR ESTA VACIO Y PROVOCA ERROR 3001, ARGUMENTOS INCORRECTOS, FUERA DEL INTERVALO..... OJALA PUEDAN AYUDARME, O BIEN COMO HAGO KE AL ELEGIR UN DATO DE LA LISTA DEL DATA COMBO, LAS CAJAS DETEXTO TAMBIEN CAMBIEN A LA INFOR DE ESE DATO

Private Sub DataCombo1_Click(Area As Integer)
Label8.Caption = DataCombo1.Text
curso = Label8.Caption
buscar = " Nombre Like '*" & curso & "*'"
Adodc1.Recordset.MoveFirst
'Adodc1.Recordset.MoveNext
If Not Adodc1.Recordset.EOF Then
Adodc1.Recordset.Find buscar
Adodc1.Refresh
folio = Text3.Text
'ElegirImagen
Else
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveFirst
Adodc1.Recordset.Find buscar
Adodc1.Recordset.MoveLast
Adodc1.Refresh
folio = Text3.Text
'ElegirImagen
If Adodc1.Recordset.EOF Then
Adodc1.Recordset.MoveLast
End If
End If
End If
End Sub