'I am putting my folder in sharing then try to use these from different pc but it shows
'file already in used PLEASE GIVE ME SOLUTION

Dim dblogin As New ADODB.Connection
Dim rclo As New ADODB.Recordset

Private Sub cmdok_Click()
dblogin.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\tmgmt.mdb;Persist Security Info=False"
rclo.Open "select uname,pas from p where pas='" & txtPassword.Text & "' and uname='" & txtusername.Text & "';", dblogin, adOpenDynamic, adLockBatchOptimistic
        If (rclo.BOF = True And rclo.EOF = True) Then
          MsgBox "incorrect Username or Password", vbExclamation, "Logon Message"
          'MsgBox "Login Successful", vbInformation, "Logon Message"
          lbuser.Caption = txtusername.Text: lbpass.Caption = txtPassword.Text
        End If
          Set rclo = Nothing
          Set dblogin = Nothing
End Sub

hi. you can put your database in a server then share it and on your program you just have to specify the path of your database. then you can now install your program on every pc.