Hola Analoyra prueba de esta manera:
Código PHP:
aux = InputBox("Ingrese clave a buscar")
txtClave.Text = Format(aux, "00")
Rs.Open "SELECT * FROM comprobante WHERE comp_clave like '" & txtClave.Text & "'", cn, adOpenStatic, adLockOptimistic
If Rs.RecordCount < 1 Then
m = MsgBox("cliente no encontrado, desea ingresarlo?", vbYesNo, "Tipo Comprobante")
If m = vbYes Then
txtClave.SetFocus
Else
Cancel = True
End If
Else
txtClave.Text = "" & Rs(0)
TxtDesc.Text = "" & Rs(1)
If Rs(3) = "" Then
Txtsigno.Text = ""
Else
Txtsigno.Text = "" & Rs(3)
If Rs(2) = "" Then
TxtSigla.Text = ""
Else
TxtSigla.Text = "" & Rs(2)
End If
End If
End If
Rs.Close
Saludos.