编程访问数据环境

1.构建数据环境DataEnvironment1，并创建Command对象；

2.在窗体添加一个CommanButton，在Click事件中写如下代码：

Private Sub Command1_Click() Dim DE As New DataEnvironment1 DE.总库存表 DE.rs总库存表.MoveFirst With DE Do While .rs总库存表.EOF = False Debug.Print .rs总库存表.Fields(2).Value .rs总库存表.MoveNext Loop End With End Sub