Adodc1.RecordSource = "select charge_date from Charge_History_Record"
                Adodc1.Refresh
                If Adodc1.Recordset.RecordCount > 0 Then
                        Adodc1.Recordset.MoveFirst
                        DTPicker1.Value = Adodc1.Recordset.Fields("Charge_Date")
                        Adodc1.Recordset.MoveLast
                        DTPicker2.Value = Adodc1.Recordset.Fields("Charge_Date")
                Else
                        DTPicker1.Value = Date
                        DTPicker2.Value = Date
                End If
                 Adodc1.Recordset.Close
                 Adodc1.ConnectionString = ""
   最后两句,运行后还是不行啊!