Question : Using a Field from a Table as part of the file name when saving in a module

How do I put a  value from a field in a table into my SaveAs function using Visual Basic?

Answer : Using a Field from a Table as part of the file name when saving in a module

dim strName as string
strName=dlookup("[Field 1]","Table 1")

objWkb.SaveAs "\\lm\FileName" & strName & Month(Date) & "-" & Day(Date) & "-" & Year(Date).