怎样实现水晶报表与ADO的连接？（高分，急！！！！）

Question

Adodc1.ConnectionString = strcon
Adodc1.CommandType = adCmdText
Adodc1.RecordSource = "SELECT * From table1"
Adodc1.Refresh

Answer 1

gstrConnect = "driver={SQL Server}" & _
            "; Server=" & gStrServer & _
            "; uid=" & gstrUsername & "; pwd=" & gstrPassword & _
            "; database=" & gstrDatabase
   crptDrilling.Connect = gstrConnect
   crptDrilling.ReportFileName = strReportFile
   crptDrilling.SelectionFormula = strQuery
   crptDrilling.Action = 1

Answer 2

gstrConnect = "driver={SQL Server}" & _"; Server=" & gStrServer & _
"; uid=" & gstrUsername & "; pwd=" & gstrPassword & _ "; database=" & gstrDatabase
crptDrilling.Connect = gstrConnect
crptDrilling.ReportFileName = strReportFile
crptDrilling.SelectionFormula = strQuery
crptDrilling.Action = 1