Народ .. подскажите.. надо создать таблицу имя которой GUID .. точнее таблица не одна .. соответсвенно в коде :

  Dim Rs, i, sql(12), sqlcmd
  Set Rs = CreateObject("ADODB.Recordset")
  sql(0) = "CREATE TABLE '" + CoCreateGuid + "'("
  sql(1) = "ID uniqueidentifier,"
  sql(2) = "Message nvarchar(250),"
  sql(3) = "AuthorID uniqueidentifier,"
  sql(4) = "TargetUserID uniqueidentifier,"
  sql(5) = "DatePosted datetime"
  sql(6) = ")"
  Set Rs = Nothing

вместо CoCreateGuid надо вставить генератор GUIDа ... подскажите как.. а то что то не разберусь..