ACCESS记录太多 请问如何修改此代码

Private Sub Num1_Click()
Dim z As Integer
Dim x
If "0101" = "0101" Then  'label12.Caption
                    On Error GoTo Exitsub
                    cp1.Clear            '清空cp1
                    cp2.Clear            '清空cp2
                    cp3.Clear            '清空cp3
                    cp4.Clear            '清空cp4
                    Adodc4.RecordSource = "select * from 0101"
                    Adodc4.Refresh
                    Do While Not Adodc4.Recordset.EOF
                    cp1.AddItem Adodc4.Recordset.Fields("SP_BH")
                    cp2.AddItem Adodc4.Recordset.Fields("SP_SJ")
                    cp3.AddItem Adodc4.Reco