No probelm, code being used is as below.
Private Sub Command2_Click()
CurrentDb.Execute "Delete * From CSMR;"
'DoCmd.TransferSpreadsheet transfertype:=acImport, tablename:="CSMR", FileName:="\\B-srv1\Company\CSMR\CSMR.xls", HasFieldNames:=True
MsgBox "Update completed"
End Sub