🚀 go-pugleaf

Ragazzi Aiuto!!!!! 
cosa � che sbaglio nel seguente listato:
Dim strConnection As String
strConnection = "Data Provider=Microsoft.Jet.OLEDB.4.0;Data Source = 
C:\Articoli.mdb"
Dim cn As New ADODB.Connection
cn.Open strConnection
Dim sql As String
Dim CRApp As New CRAXDRT.Application
Dim Report As New CRAXDRT.Report
Set Report = CRApp.OpenReport("C:\ProvaReport1.rpt")
sql = "SELECT Aticoli.CodiceArticolo, Articoli.DescrizioneArticolo FROM 
Articoli"
Dim rs As New ADODB.Recordset
rs.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText
Report.Database.SetDataSource rs, 3
CRViewer1.ReportSource = Report
CRViewer1.ViewReport

Mi da errore : Nessu valore speecificato per alcuni parametri necessari

in rs.Open sql, cn, adOpenStatic, adLockReadOnly, adCmdText

Vi prego!!!!!!!!!!!!!
Grazie



Inviato da www.mynewsgate.net