各位高手,谁有用VB6的Dataenvironment写过的数据程序,请予以例程?

哎，这种菜问题，也只有我这种菜鸟来答了。Private myrs As ADODB.RecordsetPrivate Sub Form_Load()
    If DE1.rscmdoperator.State = adStateClosed Then
        DE1.rscmdoperator.Open
    End If
     Set myrs = DE1.rscmdoperator
    Set Text1.DataSource = myrs
    Text1.DataField = "gh"
    Set Text2.DataSource = myrs
    Text2.DataField = "name"
    Set Text3.DataSource = myrs
    Text3.DataField = "passwd"
End SubPrivate Sub cmd_Click(Index As Integer)
Dim i As Integer
Dim old As Variant    Select Case Index
        Case 0
            myrs.MoveFirst
        Case 1
            myrs.MovePrevious
            If myrs.BOF Then
                myrs.MoveFirst
            End If
        Case 2
            myrs.MoveNext
            If myrs.EOF Then
                myrs.MoveLast
            End If
        Case 3
            myrs.MoveLast
        Case 4
    end select
end sub