database error

See more:

VB

I put my password on the database.(access database)
When I want it to open within the program. I get this Following error:

"cannot start your application.the workshipworkgroup information file is missing
or opened exclusively by another user."
please help me
------------------------------My code----------------------------------

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim cnnOLEDB As New OleDbConnection

    Dim cmdOLEDB As New OleDbCommand

    Dim cmdInsert As New OleDbCommand

    Dim cmdUpdate As New OleDbCommand

    Dim cmdDelete As New OleDbCommand

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            Dim strConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _
        System.Environment.CurrentDirectory & "\data.mdb;Password=ehsan"
            cnnOLEDB.ConnectionString = strConnectionString
            cnnOLEDB.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

    End Sub
End Class

[Modified: you don't put regular text into pre tags]