مشکل در insert اطلاعات یک جدول و کپی به یک فایل اکسس پسورددار

[ezzat3]

سلام دوستان
من در حال طراحی پروژه ای هستم و می خوام اطلاعات یک جدول را از یک فایل اکسس پسورددار به فایل اکسس پسورددار دیگه ای در vb.net کپی کنم . به عبارت دیگر می خواهم اطلاعات یک فایل اکسس پسورددار را از طریق برنامه ای که با vb.net نوشتم بازیابی کنم . نمونه سورس من اینه :
[Imports System.Data
Imports System.Data.OleDb
Imports System
Imports System.IO
Public Class Form1
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'بازیابی پشتیبان
Dim filen1 As String
Dim OpenFileDialog1 As New OpenFileDialog
OpenFileDialog1.Title = " لطفا مسیر فایل پشتیبان را انتخاب کنید؟ "
OpenFileDialog1.Filter = "DateBase load File(*.mdb)|*.mdb"
OpenFileDialog1.RestoreDirectory = True
OpenFileDialog1.ShowHelp = False
OpenFileDialog1.ValidateNames = False
If ((Windows.Forms.DialogResult.Cancel) = (OpenFileDialog1.ShowDialog)) Then
MsgBox("شما هیچ فایلی را برای بازیابی انتخاب نکردید ")
Exit Sub
Else
filen1 = OpenFileDialog1.FileName
Dim Dcom5 As New OleDbCommand
s1 = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & filen1 & ";Persist Security Info=True;Jet OLEDB:Database Password=2222"
con = New OleDbConnection(s1)
con.Open()
Dcom5.Connection = con
Dcom5.CommandType = CommandType.Text
Dcom5.CommandText = " INSERT INTO employee in '" & Application.StartupPath & "\nosakh.mdb';Persist Security Info=True;Jet OLEDB:Database Password=2222 SELECT * FROM employee"
Dcom5.ExecuteNonQuery()
con.Close()
MsgBox("اطلاعات با موفقیت افزوده شد ")
End If
End Sub
End Class]
در کد فوق این خط را که حذف می کنم و پسورد فایل اکسس را حذف می کنم بدون مشکل اطلاعات به بانک برنامه کپی می شود:
;Persist Security Info=True;Jet OLEDB:Database Password=2222
اگه ممکنه دوستان راهنمایی کنند که اشکال کد در کجاست و یه راه حل ارائه کنند.