|
Private Sub Get_List_Of_Tables()
rs.List_Tables()
Cursor.Current = Cursors.Default
If rs.Table_Count = 0 Then
MsgBox("No tables found on this database")
Exit Sub
End If
lstTables.Items.Clear()
Dim ict As Integer
For ict = 0 To rs.Table_Count - 1
If rs.TableType(ict) = "TABLE" Then
lstTables.Items.Add(rs.Tables(ict))
End If
Next
End Sub
|
