Kontrollere om der er kontakt til db

Har i en txt-fil denne kode som åbner en access-db :

sub openConn()

'** Connectionstring til db paa lokal server
strConn = "Provider=Microsoft.Jet.OLEDB.4.0;"
strConn = strConn & "Data Source=" & server.MapPath("mappe_med_db\dbnavn.mdb")

Set dbc = Server.CreateObject("ADODB.Connection")
dbc.open strConn

end sub

Filen inkluderes på de asp-sider som skal have adgang til db'en
hvor sub'en kaldes.

Det virker også fint, men jeg mangler en anden sub som skal tjekke om der man i det hele taget kan komme i kontakt med db'en på serveren.

Havde forestillet mig at denne sub skal returenre true eller false.

Hvis true kaldes sub'en som åbner db'en ellers vises fejlmeddelelse som f.eks.:

"Der kan ikke oprettes forbindelse til databasen. Prøv igen senere."

Nogen som kan komme med et kode-ekspempel på dette?