Una sentencia if me tiene jodido... F1

Tengo el siguiente código y esta en un button, y necesito, quiero validar la información si el usuario esta en bds entonces llámeme todos los datos del usuario y si no pues que me muestre un msn donde me diga que el usuario no esta en bds...
Pero a un no lo he logrado, con este código hace la consulta pero solo si esta el usuario registrado si no esta se revienta el programa plesss F1...

Dim conex As New ADODB.Connection
Dim ad, sqla, f, a, b, c, z, d, g, h, i, j, k, l, o, p, r, s, t, u, q As String
Dim resul As New ADODB.Recordset
conex.Open("Dsn=opticabds; uid=root; pwd=root")
sqla = "select * from paciente inner join acompanante on paciente.id_pac=acompanante.id_pacp where id_pac=(" & TextBox2.Text & ")"
ad = 0
resul = conex.Execute(sqla)
If ad = 0 Then
a = resul.Fields("numhc_pac").Value
b = resul.Fields("pac_tpid").Value
c = resul.Fields("id_pac").Value
d = resul.Fields("pac_nombres").Value
z = resul.Fields("pac_apellidos").Value
f = resul.Fields("pac_f_nacimiento").Value
g = resul.Fields("pac_edad").Value
h = resul.Fields("pac_genero").Value
i = resul.Fields("pac_estadociv").Value
j = resul.Fields("pac_telefono").Value
k = resul.Fields("pac_direccion").Value
l = resul.Fields("pac_ocupacion").Value
o = resul.Fields("pac_aseguradora").Value
p = resul.Fields("pac_motivoconsul").Value
q = resul.Fields("pac_fecha").Value
r = resul.Fields("aco_identificacion").Value
s = resul.Fields("aco_nombres").Value
t = resul.Fields("aco_parentesco").Value
u = resul.Fields("aco_telefono").Value
TextBox1.Text = a
ComboBox6.Text = b
TextBox2.Text = c
TextBox3.Text = d
TextBox4.Text = z
TextBox5.Text = f
TextBox6.Text = g
ComboBox1.Text = h
ComboBox2.Text = i
TextBox7.Text = j
TextBox8.Text = k
ComboBox3.Text = l
ComboBox4.Text = o
TextBox9.Text = p
TextBox11.Text = r
TextBox10.Text = s
TextBox12.Text = u
ComboBox5.Text = t
TextBox13.Text = q
Else
MsgBox("El Usuario No Esta En La BDS...")
End If
End Sub