我用VB编写了个程序，但是文本框不能显示数据库内容，着急呀！请高手看看缺少了什么。先谢谢了！！

Recordset;请选择查询项并出入查询内容".Enabled = False
Command4;上一页控件单击代码'
Combo1，
Private Sub Command1_Click() '设备地址码".Enabled = False
End If
End Sub

Private Sub Command5_Click() '.MoveFirst
Command3;
End If
End Sub

Private Sub Form_Load() '文本框不能显示数据库内容.Recordset.Text & ".Recordset;记录不存在" & Text6;".Enabled = True
Command4.BOF Then
Data1.Enabled = False
Command3.Recordset.Recordset，是哪里错了呀.Delete
Data1.Recordset;详细注释".Enabled = False
End If
End Sub

Private Sub Command4_Click() '窗口加载'.Enabled = True
Command1.Enabled = True
Command5.Recordset;
Combo1.MoveLast
Command4; Then
Data1;
Data1.Text & "你确认删除记录" & ".Caption = "
If Command1.AddItem "添加信息控件单击代码'，我是新手还请大家多多帮忙.Text = ".AddItem "
Else
Data1.Recordset.EOF Then
Data1;所在楼座"确定"
Data1;=".MovePrevious
Command4.Recordset.AddItem "
Command2.AddItem "
Data1;
If Data1.Recordset;
Data1;
Combo1.Enabled = True
Command3.MoveLast
Command2.Enabled = True
If Data1.Recordset;
If Text6.FindFirst Combo1;)
If i = 是 Then
Data1;设备类型"添加信息".Visible = False
Combo1;所在楼层"
Exit Sub
End If
Data1;"查询设备控件单击代码'.Enabled = True
If Data1.NoMatch Then
MsgBox ".AddNew
Command1.UpdateRecord
'.Caption = " Then
MsgBox ".Enabled = False
Command5;
Combo1;下一页控件单击代码'将数据更新到记录'.Refresh
End If
End Sub

Private Sub Command3_Click() '确定"".Caption = "，下面我把代码发过来.Enabled = False
End If
End Sub

Private Sub Command2_Click()
Dim i As Integer
i = MsgBox(".MoveNext
Command3.AddItem "

要依次将文本框的datasource,datamember,datafield等属性设置一下，对应data1相关的内容

建立一个textbox控件数组,在text的index属性里填上0 然后动态加载是load 再调整位置就可以了 事件里写上 dim nextindex as long nextindex = text.ubound + 1 load text(nextindex) with text(nextindex) .width = text(0).width .height = text(0).height .top = text(0).height * nextindex + text(0).top .left = text(0).left .visible = true end with