mangler hjælp til en msgbox i mit program

Hej jeg er ved at lave et lille program og vil gerne have at det kommer med en meddelse om at det forspurgte førernr ikke eksistere og ikke andet. jeg har skrevet disse lininer men ved ellers ikke hvad og hvor jeg skal skrive resten

denAnsatte.rscomFirma.Open
denAnsatte.rscomFirma.MoveFirst
denAnsatte.rscomFirma.Find "Førernr ='" + txtFørernrinstillinger.Text + "'", 0, adSearchForward
If Not (denAnsatte.rscomFirma.EOF) Then
txtFørernrinstillinger = denAnsatte.rscomFirma.Fields("Førernr")
txtSenrinstillinger.Text = denAnsatte.rscomFirma.Fields("SEnr")
txtNavninstillinger.Text = denAnsatte.rscomFirma.Fields("Navn")
txtMellemnavninstillinger.Text = denAnsatte.rscomFirma.Fields("Mellemnavn") & ""
txtEfternavninstillinger.Text = denAnsatte.rscomFirma.Fields("Efternavn")
txtAdresseinstillinger.Text = denAnsatte.rscomFirma.Fields("Adresse")
txtPostnrinstillinger.Text = denAnsatte.rscomFirma.Fields("Postnr")
txtByinstillinger.Text = denAnsatte.rscomFirma.Fields("By")
txtProcentdaginstillinger.Text = denAnsatte.rscomFirma.Fields("Procentdag")
txtProcentnatinstillinger.Text = denAnsatte.rscomFirma.Fields("Procentnat")
txtProcentoverskydendeinstillinger.Text = denAnsatte.rscomFirma.Fields("Procentoverskydende")
txtmånedeansatte.Text = denAnsatte.rscomFirma.Fields("Beløbføroverskud14")
txtOverskydendeinstillinger.Text = denAnsatte.rscomFirma.Fields("Beløbføroverskydende")
txtHtspensioninstillinger.Text = denAnsatte.rscomFirma.Fields("HTSP")
txtAmbaInstillinger.Text = denAnsatte.rscomFirma.Fields("Amba")
txtTrækprocent = denAnsatte.rscomFirma.Fields("ATP")
txtProcentferiepengeinstillinger.Text = denAnsatte.rscomFirma.Fields("FeriepengeProcent")
txtSatsferiepengeinstillinger.Text = denAnsatte.rscomFirma.Fields("Satsfradragferiepenge")
chkMånedsløn = denAnsatte.rscomFirma.Fields("Månedsløn") * -1
chk14dagsløn = denAnsatte.rscomFirma.Fields("14dagsløn") * -1
denAnsatte.rscomFirma.Close

End If