تحويل الأكواد من الفيجوال بيسك 6 إلى الفيجوال ستيديو

كود :
   Private ConStr As String = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source =" & Application.StartupPath & "\DATABSE2.mdb"

    Private tbl_PRINCIPAUX As New DataTable

    Private tbl_SECONDAIRES As New DataTable

    Private PRINCIPAUX_list As New List(Of String)

    Private SECONDAIRES_list As New List(Of String)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Using Conn As New OleDbConnection(ConStr)

            Conn.Open()

            Using DataAdapter1 As New OleDbDataAdapter("SELECT * FROM GUARD_PRINCIPAUX", Conn)

                DataAdapter1.Fill(tbl_PRINCIPAUX)

            End Using

            Using DataAdapter2 As New OleDbDataAdapter("SELECT * FROM GUARD_SECONDAIRES", Conn)

                DataAdapter2.Fill(tbl_SECONDAIRES)

            End Using

            Conn.Close()

        End Using

        For Each rw As DataRow In tbl_PRINCIPAUX.Rows

            If rw("FIRST_NAME").ToString.Trim.Length > 0 Then PRINCIPAUX_list.Add(rw("FIRST_NAME"))

        Next

        For Each rw As DataRow In tbl_SECONDAIRES.Rows

            If rw("LAST_NAME").ToString.Trim.Length > 0 Then SECONDAIRES_list.Add(rw("LAST_NAME"))

        Next



    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

        If PRINCIPAUX_list.Count <= 0 Then

            MsgBox("لم يتم العثور على أسماء في حقل الحراس الرئيسيين", vbOKOnly + vbExclamation, "تنبيه")

            Exit Sub

        End If

        If SECONDAIRES_list.Count <= 0 Then

            MsgBox("لم يتم العثور على أسماء في حقل الحراس المتغيرين", vbOKOnly + vbExclamation, "تنبيه")

            Exit Sub

        End If

        If Nrows.Value > PRINCIPAUX_list.Count Then

            MsgBox("عدد الحجرات أكبر من عدد الحراس الرئيسيين", vbOKOnly + vbExclamation, "تنبيه")

            Exit Sub

        End If

        If Nrows.Value > Int(SECONDAIRES_list.Count / Ncolumns.Value) Then

            MsgBox("عدد أعضاء الحراسة لا يمكن أن يغطّي عدد الحجرات", vbOKOnly + vbExclamation, "تنبيه")

            Exit Sub

        End If

        Try

            Dim rand As New Random()

            Dim Max_tracks As Integer = PRINCIPAUX_list.Count

            Dim TrackName As String = "", RacerName As String = "", RacerName2 As String = ""

            For x As Integer = 1 To Nrows.Value

                TrackName = PRINCIPAUX_list(rand.Next(0, PRINCIPAUX_list.Count - 1))

                RacerName = SECONDAIRES_list(rand.Next(0, SECONDAIRES_list.Count - 1))

                RacerName2 = ""

                If Ncolumns.Value > 1 Then RacerName2 = SECONDAIRES_list(rand.Next(0, SECONDAIRES_list.Count - 1))



                DataGridView1.Rows.Add("الحجرة :  " & x, TrackName, RacerName, RacerName2)

                PRINCIPAUX_list.Remove(TrackName)

                SECONDAIRES_list.Remove(RacerName)

                SECONDAIRES_list.Remove(RacerName2)

            Next

        Catch ex As Exception

            MsgBox(ex.Message, vbOKOnly + vbCritical, "خطأ")

        End Try

        Button1.Enabled = False

    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

        DataGridView1.Rows.Clear()

        PRINCIPAUX_list.Clear()

        SECONDAIRES_list.Clear()

        For Each rw As DataRow In tbl_PRINCIPAUX.Rows

            If rw("FIRST_NAME").ToString.Trim.Length > 0 Then PRINCIPAUX_list.Add(rw("FIRST_NAME"))

        Next

        For Each rw As DataRow In tbl_SECONDAIRES.Rows

            If rw("LAST_NAME").ToString.Trim.Length > 0 Then SECONDAIRES_list.Add(rw("LAST_NAME"))

        Next

        Button1.Enabled = True

    End Sub