Visual Basic - controlar error

Muy buenas, necesito mostrar un mensaje de error al usuario cuando introduzco un dato y no se encuentra registrado en la base de datos. creo que es muy simple pero no doy con ello. os dejo el código para clarificar.

Gracias de antemano!!
Public Sub CargarArticulo()

Dim articulo As Integer
Dim R As String

articulo = Val(Me.txtArticulo.Text)

sbase = "c:\caprichos\base\caprichos.mdb"
Set db = OpenDatabase(sbase)
SQL = "Select * FROM ARTICULOS WHERE CODIGO = " & articulo
Set Rst = db.OpenRecordset(SQL)

If Not articulo Then
R = MsgBox("NO existe el artículo en la base de datos, introduzca otro valor", vbInformation + vbOKOnly, "Caprichos")
txtArticulo.Text = ""
Else
Set Rst = db.OpenRecordset(SQL)
Me.TxtDescripcion.Text = Rst!Descripcion
Me.txtcoste.Text = Rst!pvp
End If
el problema es que siempre me da la primera condicion, meta un código que existe en la base o no

En principio, te digo que el If verifica la variable "articulo" , en vez de verificar el recordset Rst, preguntando si está vacío, por ejemplo.
Yo cambiaría el if por

If Not Rst.EOF then

Eso es todo, en mi humilde opinion. Hasta luego.

Gracias josé, lo voy a intentar aunque creo que me dice que noy hay ningún registro activo, voy a ver,
gracias

Funcionó!!! no exactamente así pero me diste la idea, gracias otra vez wooooow!!