รบกวนช่วยดู Error ต้องการ Select ข้อมูลจากล่างขึ้นบนแล้ว Save ลง Table ใหม่แต่ติด Error ครับ

Private Sub DG2_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DG2.CellDoubleClick
        Dim selectedrowcount As Integer =
            DG2.Rows.GetRowCount(DataGridViewElementStates.Selected)

        If selectedrowcount > 0 Then
            Dim Jobnum, วันที่ออกจากคลัง, ใบจัดส่งเลขที่, ชนิดน้ำมัน, ปริมาณการขนส่ง, ด่าน, สถานที่ส่ง As Object
            Dim i As Integer
            For i = 0 To selectedrowcount - 1
                Jobnum = DG2.SelectedCells(0).Value
                วันที่ออกจากคลัง = DG2.SelectedCells(1).Value
                ใบจัดส่งเลขที่ = DG2.SelectedCells(2).Value
                ชนิดน้ำมัน = DG2.SelectedCells(3).Value
                ปริมาณการขนส่ง = DG2.SelectedCells(4).Value
                ด่าน = DG2.SelectedCells(5).Value
                สถานที่ส่ง = DG2.SelectedCells(6).Value

                Call connect()
                cmd = New SqlClient.SqlCommand("select * from db_Ticket2 where Jobnum2 = '" & Jobnum & "'", cn)
                DR = cmd.ExecuteReader
                DR.Read()

                If Not DR.HasRows Then
                    connect()
                    Dim save As String = "insert into db_Ticket2 (Jobnum2,วันที่ออกจากคลัง2,ใบจัดส่งเลขที่2,ชนิดน้ำมัน2,ปริมาณการขนส่ง2,ด่าน2,สถานที่ส่ง2) values('" & Jobnum & "','" & วันที่ออกจากคลัง & "','" & ใบจัดส่งเลขที่ & "','" & ชนิดน้ำมัน & "','" & ปริมาณการขนส่ง & "','" & ด่าน & "','" & สถานที่ส่ง & "',)"
                    cmd = New SqlClient.SqlCommand(save, cn)
                    cmd.ExecuteNonQuery()

                End If
                    showdata2()

            Next

        End If


    End Sub