For x = 0 To tblFields.Size -1
Dim var, var1 As String
' must replace .GetValueAt ...
var = tblFields.GetValueAt(x)
var1 = tblFields.GetValueAt(3) ' trk field
If var = "null" Then
var = ""
End If
' must replace .GetKeyAt ...
If tblFields.GetKeyAt(x) = "filename" Then
ls1.Initialize
....