Private Function SetSQLDataType(ByVal cTypeName As String) As Integer
   Select Case cTypeName
       Case "Int64" : Return 0
       Case "Binary" : Return 1 
       Case "Boolean" : Return 2
       Case "Char" : Return 3 
       Case "DateTime" : Return 4 
       Case "Decimal" : Return 5 
       Case "Double" : Return 6
       Case "Int32" : Return 8 
       Case "Guid" : Return 14
       Case "Int16" : Return 16
       Case "String" : Return 22
       Case "Byte" : Return 20 
       Case "Array" : Return 21 
       Case Else : Return 23
   Select End
End Function