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