No declarations

' this is an excerpt of my codes, you can just declare variable yourself and ' pass QUERY to strQry variable With mconExcelConnection If .State = 1 Then .Close .CursorLocation = adUseClient .ConnectionString = "Driver:DBASE IV;Extended Properties=Excel 8.0" .Open End With or With mconExcelConnection Dim recset as new ADODB.Recordset .ConnectionString = "Driver:DBASE IV;Extended Properties=Excel 8.0" .Open set recset.ActiveConnection = mconExcelConnection recset.open strQuery End With