VB Code:
Sub fillLst()
Dim x As Integer
lstCO.ListItems.Clear
strSQl = "SELECT * FROM tblCO WHERE coClientId=" & frmMain.lstClients.SelectedItem
Set rs = conn.Execute(strSQl)
If Not rs.EOF Then
retData = rs.GetRows()
fraCO.Caption = UBound(retData, 2) + 1 & " Records"
For x = 0 To UBound(retData, 2)
Set newitem = lstCO.ListItems.Add(Text:=retData(0, x))
If Trim(retData(3, x)) = "" Or IsNull(retData(3, x)) Then
newitem.SubItems(1) = retData(3, x)
Else
newitem.SubItems(1) = FormatCurrency(retData(3, x), 2, vbUseDefault, vbFalse)
End If
newitem.SubItems(2) = retData(4, x) & ""
newitem.SubItems(3) = retData(2, x) & ""
Next
cmdEditCO.Enabled = True
cmdDeleteCO.Enabled = True
cmdPrintCO.Enabled = True
Else
cmdEditCO.Enabled = False
cmdDeleteCO.Enabled = False
cmdPrintCO.Enabled = False
End If
Set rs = Nothing
End Sub