can it be done

[itsglitzy]

Sub Reg()

Dim TeamVar As String
TeamVar = Range("TeamVar").Value
Range("B8:G24").Select
Selection.ClearContents

With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _
"ODBC;DSN=MS Access Database;DBQ=S:\Access\dB\Details.mdb;DefaultDir=S:\Access\dB;DriverId=25;FIL=MS Access;MaxBufferSize=2048;PageTi" _
), Array("meout=5;")), Destination:=Range("B8"))
.CommandText = Array( _
"SELECT DataSource.Team, DataSource.`Tech No`, DataSource.Surname, DataSource.Forename, DataSource.`Emp No`" & Chr(13) & "" & Chr(10) & "FROM `S:\Access\dB\Details`.DataSource DataSource" & Chr(13) & "" & Chr(10) & "WHERE (DataSource.Team=" & Chr(34) & TeamVar & Chr(34) & ")")
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

End Sub

the code is what i recorded and then changed, i have a excel sheet with drop down lists team names ie E001 E002 etc etc, when you select a team name ie E002 hit go it should goto my access db and pull in e002 but it keeps falling over at the : .Refresh BackgroundQuery:=False lin any ideas, thanks to all who post