数据库问题

[xiongliang]

我是用代码动态创建一个不定结构表，
并添加一个窗体、一个ADO控件。目的是通过代码提示，让用户动态的建
立表，并使ADO动态的连接它们。代码如下，大家一起研究吧！

Dim MyDatabase As Database
Dim MyTabledef As TableDef
Dim MyField As Field
Dim Fieldnum As Double
Dim Datapath As String
Dim Tablename As String


Private Sub ComAddTab_Click()
If ComAddTab.Caption = "添加表" Then
Tablename = InputBox("输入表名称", "表名称")
If Tablename = "" Then
string1$ = MsgBox("末创建表！", vbOKOnly, "警告")
Else
Set MyTabledef = MyDatabase.CreateTableDef(Tablename)
ComAddTab.Caption = "添加字段"
End If
If ComAddTab.Caption = "添加字段" Then
fieldnumber = InputBox("输入字段数", "字段数")
If fieldnumber = "" Then
string1$ = MsgBox("末输入字段", vbOKOnly, "警告")
Else
Fieldnum = Val(fieldnumber)
Dim temp As Double
temp = Fieldnum
Label1.Caption = "输入字段名"
For i = 1 To temp - 1
Load Text1(i)
Text1(i).Top = Text1(i - 1).Top + 600
Text1(i).Visible = True
Text1(i).Text = ""
Next i
ComOk.Enabled = True
End If
End If
End If
End Sub

Private Sub Command1_Click()
Unload Me
End Sub

Private Sub ComNew_Click()
Datapath = InputBox("输入新建的数据库名称", "数据库名称")
If Datapath = "" Then
string1$ = MsgBox("末建数据库！", vbOKOnly, "警告")
Else
Set MyDatabase = Workspaces(0).CreateDatabase(Datapath, dbLangGeneral)
ComAddTab.Enabled = True
End If
End Sub

Private Sub ComOk_Click()
For i = 0 To Fieldnum - 1
Set MyField = MyTabledef.CreateField(Text1(i), dbInteger)
MyTabledef.Fields.Append MyField
Next
MyDatabase.TableDefs.Append MyTabledef

' 我想在此处显示form2，并动态的为数据控件加载本数据库表——此处
' 已创建的表。请问如何写代码。我只会静态的。本处代码已调试成功！
End Sub

Private Sub Form_Load()
ComNew.Caption = "新建"
ComAddTab.Caption = "添加表"
ComOk.Caption = "确定"
ComAddTab.Enabled = False
ComOk.Enabled = False
End Sub

我很高兴认识您们，若愿意与我联系，请粘贴
[e-mail] 或QQ:86544641

[cjlong]

' 我想在此处显示form2，并动态的为数据控件加载本数据库表——此处
' 已创建的表。请问如何写代码。我只会静态的。本处代码已调试成功！

什么意思????????????

[xiongliang]

动态加载用户根据我的提示而建立的表，用FORM2动态绑定，因绑定工作由我们做，而不是用户。故只能用代码连接。谢谢！