แปลง ดาต้าที่มี ' ใน combobox ให้เป็น string เพื่อออกreport

        '*** DataTable ***'
        Dim dtAdapter As SqlDataAdapter
        Dim dt As New DataTable
        strSQL = "SELECT * FROM files WHERE FilesID = @sFilesID "
        dtAdapter = New SqlDataAdapter(strSQL, objConn)
        objCmd = dtAdapter.SelectCommand
        objCmd.Parameters.Add("@sFilesID", SqlDbType.Int).Value = Request.QueryString("FilesID")
        dtAdapter.Fill(dt)

        If dt.Rows.Count > 0 Then
            Me.ImgPic.ImageUrl = "ViewImg.aspx?FilesID=" & dt.Rows(0)("FilesID")
            Me.txtName.Text = dt.Rows(0)("Name")
        End If

        dt = Nothing