Function ProvjeraLinka( Imetabele as string)
Dim Db As Database
Dim Rs As Recordset
 
On Error GoTo Greska
Set Db = CurrentDb()
Set Rs = Db.OpenRecordset(Imetabele)
Rs.Close
Set Db = Nothing
Exit Function
Greska:
MsgBox "Nema veze sa bazom" & vbCr & _
"Provjerite dali je sever upaljen"
 
End Function