Adodc1.RecordSource = "CREATE TABLE '" & Form3.Label4.Caption & "' (" _
& "id           int NOT NULL," _
& "version      char(25)," _
& "PRIMARY KEY (id))"

Adodc1.ConnectionString = "Provider=SQLOLEDB.1;Password=***;Persist Security Info=True;User ID=sa;Initial Catalog=BASA;Data Source=server"
Adodc1.RecordSource = "CREATE TABLE '" & Form3.Label4.Caption & "' (" _
& "id           int NOT NULL," _
& "name_po      char(70)," _
& "version      char(25)," _
& "primechanie  text," _
& "usern        char(12)," _
& "datan        datetime," _
& "vremia       datetime," _
& "PRIMARY KEY (id))"
Set DataGrid1.DataSource = Adodc1
Adodc1.CommandType = adCmdText
Adodc1.CursorType = adOpenDynamic
Adodc1.Refresh