a.setDatabase("118.XX.XX.175","mXXXXn","XXXXXX","xxxxxxx")
L= a.Query("select * from TabDate")
For i = 1 To L.Size -1
Dim MyRecord As String=L.Get(i)
MyRecord=MyRecord.Replace("[","").Replace("]","") 'get rid of brackets in each record
Dim strRecArray() As String
strRecArray=Regex.Split(",",MyRecord)
SQL1.ExecNonQuery2("INSERT INTO datemstr VALUES (?, ?, ?, ?, ?)", Array As Object(strRecArray))
Next