Dim cn As ADODB.ConnectionSet cn = New ADODB.ConnectionDim x, l As LongDim sql As Stringx = 2With cn.Provider = "Microsoft.Jet.OLEDB.4.0".ConnectionString = "Data Source=" & wkname & ";" & _"Extended Properties=Excel 8.0;".OpenEnd WithDim rs As ADO Read More