i tried changing the restore code to include this:
oRestore.DatabaseFiles = "Jantzen_Data"
------------------------------------------
Dim oRestore As New SQLDMO.Restore
Dim oSQLServer As New SQLServer
oSQLServer.Connect "WENDY", "sa", ""
oRestore.Action = SQLDMORestore_Files
oRestore.Database = "Jantzen"
oRestore.DatabaseFiles = "Jantzen_Data"
oRestore.ReplaceDatabase = True
oRestore.Files...