Class classes that connect to a database

Option Explicit
' local variable (s) to hold property value (s)
Private lsserver as String ' local copy
Private Lsdatabase as String
' local variable (s) to hold property value (s)
Private lsusername as String ' local copy
Private Lspassword as String ' local copy
Private Lsselectsql as String ' local copy
' local variable (s) to hold property value (s)
Private lstable as String ' local copy
Public Property Let Table (ByVal vdata as String)
' used when assigning a value to the ' and on the left side of a assignment.
' syntax:x.table = 5
Lstable = Vdata
End Property
Public Property Get Table () as String
' used when retrieving value of a, on the right side of a assignment.
' Syntax:Debug.Print x.table
Table = lstable
End Property
Public Property Let Selectsql (ByVal vdata as String)
' used when assigning a value to the ' and on the left side of a assignment.
' Syntax:x.selectsql = 5
Lsselectsql = Vdata
End Property
Public Property Get Selectsql () as String
' used when retrieving value of a, on the right side of a assignment.
' Syntax:Debug.Print X.selectsql
Selectsql = Lsselectsql
End Property
Public Property Let Password (ByVal vdata as String)
' used when assigning a value to the ' and on the left side of a assignment.
' Syntax:x.password = 5
Lspassword = Vdata
End Property
Public Property Get Password () as String
' used when retrieving value of a, on the right side of a assignment.
' Syntax:Debug.Print X.password
Password = Lspassword
End Property
Public Property Let UserName (ByVal vdata as String)
' used when assigning a value to the ' and on the left side of a assignment.
' Syntax:x.username = 5
Lsusername = Vdata
End Property
Public Property Get UserName () as String
' used when retrieving value of a, on the right side of a assignment.