[حافظ حافظ]

اخي سعود هاذا كود بالفورم1 على vb6

كود :

Public dB       As New ADODB.Connection
Public Rs       As New ADODB.Recordset
Private Sub Form_Load()
dB.Provider = "Microsoft.JET.OLEDB.4.0;"
dB.Open Application.StartupPath & "\MARKET.mdb"
Rs.Open "Select * From Production Order By [Marketing] ASC", dB, adOpenStatic, adLockPessimistic
Get_Name
End Sub
Private Sub Get_Name()
Combo1.Clear
If Rs.State = adStateOpen Then Rs.Close
Rs.Open "[Production]", dB, adOpenStatic, adLockReadOnly
If Rs.RecordCount = 0 Then
Combo1.AddItem "فارغ"
Combo1.Text = Combo1.List(0)
Else
Do Until Rs.EOF
Combo1.AddItem Rs![Marketing]
Rs.MoveNext
Loop
End If
End Sub

حولت مشروع هذا ال vb6 الى ملف exe اسمو project1
حملت هذا ال project1 ووضعتو بالرسورس بتاع مشروع ال vb net و وضعت قاعدة البيانات بال debug
لما شغلت مشروع ال vb net و اردنت تشغيل ملف ال project1 بهاذا الكود يطلعلي خطأ بالصورة يلي وضعاها

كود :

   Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
       Dim dir As String = My.Computer.FileSystem.SpecialDirectories.Temp
       Dim filename As String = dir + "Project1.exe"
       IO.File.WriteAllBytes(filename, My.Resources.Project1)
       Process.Start(filename)
   End Sub