以变量为表名创建数据表

[zcg]

实现动态添加数据表,以下是我的代码
Dim ConnectionString As String = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = d:\db1.mdb"
Dim myConn As OleDbConnection = New OleDbConnection()
myConn.ConnectionString = ConnectionString
myConn.Open()
TextBox3.Text =DateString '时间函数 ’textbox3也可赋值为数字变量，也未成功

Dim cre As String = "Create Table left('+ text3.text +' ,7) (id int identity(1,1),name varchar(50),sex varchar(50))" '时间函数

Dim cre As String = "Create Table '+ text3.text +' (id int identity(1,1),name varchar(50),sex varchar(50))" ’textbox3赋值为数字变量
Dim crecommand As OleDbCommand = New OleDbCommand(cre, myConn)
crecommand.ExecuteNonQuery() '执行建立表命令
myConn.Close() '关闭连接
提示Create Table 语法错误

希望实现的是取出DateString函数值的前七位即2009-07为表名，创建2009-7数据表，应如何实现，谢谢

[bw555]

Dim cre As String = "Create Table " & left(text3.text,7) & "  (id int identity(1,1),name varchar(50),sex varchar(50))"

[古今多少事]

TableName = TextBox3.Text.Substring(0, 7)
Dim Cre As String = "Create Table [" & TableName & "] (id int identity(1,1),name varchar(50),sex varchar(50))"

[CloneCenter]

表名称是有要求的，通常有个减号在里面是不行的，试试将减号改成下划线试试，或者纯数字试试。

[zcg]

谢谢各位的帮忙
ASDFY的方法可以解决问题了，十分感谢，结贴给分了