Back to .Net Form

  Private Sub lstTables_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles lstTables.DoubleClick
    rs.Sql = "Select * from " & lstTables.Text
    lstRecords.Items.Clear()

    rs.Execute()
    While Not rs.EOF
      lstRecords.Items.Add(rs.Returned_Data)
      rs.MoveNext()
    End While

    '
    ' Or....
    '
    rs.Execute()
    Dim Ict As Integer
    While Not rs.EOF
      For Ict = 0 To rs.Field_Count - 1
        lstRecords.Items.Add(rs.Field_Name(Ict) & ":" & rs.Field_Value(Ict))
      Next
      rs.MoveNext()
    End While
  End Sub