Get Data from Database using Class in VB-Script

Class TestDbConnection
Public Function DataBaseConnection(ServerName,DataBaseName,DBUser,DBPassword,MySQL)
'Db Connection
Dim objCon, ObjRecordSet
ConnString = "Driver=MySQL ODBC 3.51 Driver; server=ServerName"
ConnString = ConnString &";database=DataBaseName"
ConnString = ConnString &";user=DBUser"
ConnString = ConnString &";password=DBPassword"
Set objCon = createobject("ADODB.Connection")
objCon.Open(ConnString)
Set ObjRecordSet = CreateObject("ADODB.Recordset")
                ObjRecordSet.Open CStr(MySQL),objCon
If (not ObjRecordSet.EOF) then
For I = 0 To ObjRecordSet.Fields.Count - 1
GetSQLData = Trim(CStr(GetSQLData)) & "," & Trim(CStr(ObjRecordSet.Fields(I)))
Next 
End If
                ObjRecordSet.close
objCon.close
Set ObjRecordSet = Nothing
Set objCon = Nothing
DataBaseConnection = GetSQLData
GetSQLData = ""
End Function
End Class


Const Query = "Select * From TableName"
Dim myTestClass
Set myTestClass = new TestDbConnection
myTestClass.DataBaseConnection ServerName,DataBaseName,DBUser,DBPassword,Query