access connection string with password and without password
  
    If DbPass.Length > 0 Then
            AccCon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database password=" & DbPass & ";Data Source=" & Dpath & "")
        Else
            AccCon = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=" & Dpath & "")
        End If