Dim cnn as object,rs as object
Set cnn = CreateObject("adodb.connection")
Set cnn = CreateObject("adodb.connection"): mybook = ThisWorkbook.FullName
cnn.Open "Provider = Microsoft.Jet.Oledb.4.0;Extended Properties =Excel 8.0;Data Source =" & mybook