---

        Dim cmd As New OleDbCommand
        Dim conSQL As New OleDbConnection(ConfigurationSettings.AppSettings().Item("connectionStringR"))
        Dim sqlStr as String = "Select * from tableA join tableB on tableA.id=tableB.aid"
        Dim odbcCommand As String
        conSQL.Open()
        odbcCommand = sqlStr
        cmd.CommandText = odbcCommand
        da.SelectCommand = cmd
        da.SelectCommand.Connection = conSQL
        da.TableMappings.Add("Table", "tableA")
        da.TableMappings.Add("Table1", "tableB")
        da.Fill(ds)
        CrtRptSource.ReportDocument.SetDataSource(ds)

---

---

Public Sub tbl2txt()

Dim wrk As dao.Workspace
Dim db As dao.Database
Dim cnn As dao.Connection
Dim rs As dao.Recordset
Dim strTable As String
Dim strFileName As String
Dim intFileNum As Integer

On Error GoTo err_Tbl2Txt

strTable = "QBtmLine"
' Create Microsoft Jet Workspace object.
Set wrk = CreateWorkspace("", "admin", "", dbUseJet)

Set db = wrk.OpenDatabase("U:\DEVHELP_DBs\Ilfornaio\Access2000_a\botline_2k.mdb")

Set rs = db.OpenRecordset("Select * From " & strTable)

With rs
'check to see that records were returned
If rs.RecordCount < 1 Then
MsgBox "No records found for Bottom Line Check File"
Me.Refresh
End If
intFileNum = FreeFile

strFileName = "H:\Acct\BT_2kTesting\blinetxtapp_2k\Blintes1.txt"

Open strFileName For Output As intFileNum

.MoveFirst
Do While Not .EOF

'File is fixed
Print #intFileNum, Format(!paydate, "mm/dd/yy") _
& PadString(Format(!checkamt, "###,#00.00"), " ", 13, False) _
& PadString(!Name, " ", 80, True) & PadString(!add1, " ", 35, True) _
& PadString(!add2, " ", 35, True) & PadString(!add3, " ", 35, True) _
& PadString(!add4, " ", 2, True) & PadString(!postcode, " ", 10, True) _
& (Format(!docdate, "mm/dd/yy") _
& PadString(Format(!invoiceamt, "###,#00.00"), " ", 13, False) _
& PadString(!vendor, " ", 72, False) & PadString(!invno, " ", 34, False) _
& PadString(!checkno, " ", 24, False) & PadString(!sname, " ", 25, True) _
& PadString(!Group, " ", 15, True) & PadString(!groupname, " ", 35, True))

.MoveNext
Loop

End With

Close intFileNum
Set rs = Nothing
db.Close
Set wrk = Nothing
Exit Sub

err_Tbl2Txt:
MsgBox "Error" & Err.Description & "occurred in Tbl2Txt, Correct then Rerun."

End Sub

---

---

    protected void lv1_ItemDataBound(object sender, ListViewItemEventArgs e)
    {
        if (e.Item.ItemType == ListViewItemType.DataItem)
        {
            try
            {
                CheckBox chkBox = (CheckBox)e.Item.FindControl("chkSelect");
                using (ListViewDataItem lvdi = (ListViewDataItem)e.Item)
                {
                    if (lvdi != null)
                    {
                        chkBox.ID = "dg1_" + DataBinder.Eval(lvdi.DataItem, "ServerID");
                        chkBox.Text = (string)DataBinder.Eval(lvdi.DataItem, "Server_Name");
                        chkBox.TabIndex = (short)(lvdi.DataItemIndex + 6);
                    }
                }
            }
            catch { }
        }
    }

---

---

    protected void doPostBack(object sender, EventArgs e)
    {
        ListView tdg1 = (ListView)this.FindControl("inputform1").FindControl("lv1");
...
        foreach (ListViewItem dgi in tdg1.Items)
        {
            counta += dgi.Controls.Count;
            foreach (Control cc in dgi.Controls)
            {
                debug += cc.ID;
                if (cc.GetType() == typeof(CheckBox))
                {
                    CheckBox cb = (CheckBox)cc;
                    if (cb.Checked == true)
                    {
                        Regex r = new Regex("dg1_(?<id>[0-9]+)");
                        Match m = r.Match(cb.ID);
                        if (m.Success)
...

---