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