Dim file As String = " " & Application.StartupPath & "\SmartShop.mdb" If My.Computer.FileSystem.FileExists(file) Then MsgBox(" Found") ElseMsgBox("Not Found")end if