если у Вас стандартный проект, скомпилированный в VB ехе-файл, то обычно в стартовой форме (модуле) ставят такой код

If App.PrevInstance Then MsgBox "Программа уже запущена. Извините...", vbExclamation, App.Title: Exit Sub

который гарантирует, что на локальном компе будет запущена только одна копия программы.
если Вы расположили свою программу на сервере и пытаетесь запустить ее с разных рабочих станций, то получаете ошибку.

Компах соединенных сетевым кабелем с сервером и запускающим приложение по сети или на компах работающих в терминальной
сессии на сервере?
Если первое, то все должно работать, если второе - by-pass уже ответил ;)

если у Вас есть исходники проекта:
откройте проект, найдите и закоментируйте строку, содержащую текст

App.PrevInstance

Наймите программиста в конце-концов.

У тебя есть исходники на руках, делаешь вариант с логированием и смотришь на каком месте выдает сообщение о запущености
праграммы или просто в отладчике это смотришь, для чего делать несколько одинаковых тем? Или ты думаешь что спустя

'***********************************************************
Private Sub Form_Load()
   Set Con = New ADODB.Connection
   Con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\\Server01\Root\Master aziendale\MasterAziendale.mdb;Persist Security Info=False"
   Con.CursorLocation = adUseClient
   '
   Set rsCategorie = New ADODB.Recordset
   rsCategorie.CursorLocation = adUseClient
   Set rsTemp = New ADODB.Recordset
   rsTemp.CursorLocation = adUseClient
   Call Imposta
End Sub

Private Sub Form_Load()
'frmMediPragma
Set Rst = New ADODB.Recordset
'
txtLogin.Text = ""
txtPassword = ""
Password = ""
Cat = ""
Timer3.Interval =  500 
End Sub

Private Sub Timer2_Timer()
lblAvviso.ForeColor = QBColor(Rnd *  15 )
End Sub

Private Sub Timer3_Timer()
lblAvviso1.ForeColor = QBColor(Rnd *  15 )
End Sub

'***********************************************************
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
'sostituire delle lettere di password con ***
If (KeyAscii >  64 ) And (KeyAscii <  144 ) Then
    Password = Trim(Password) & Chr(KeyAscii)
    KeyAscii = "42"
    Label2.Caption = Password
Else
    '
End If
End Sub
'***********************************************************
Private Sub cmdInvio_Click()
'
Filter = "ID_login = " & " '" & Trim(LCase(txtLogin.Text)) & "' " & _
          " And Password = " & " '" & Password & "' "
adUtenti.Recordset.Filter = Filter
'
lblVietatoAccesso.Visible = False
If adUtenti.Recordset.RecordCount =  0  Then
   'frmMediPragma.Show
   lblVietatoAccesso.Caption = "Login o Password non è valido, inserire di nuovo o rivolsersi ad amministratore "
   lblVietatoAccesso.Visible = True
   txtLogin = ""
   txtPassword = ""
   Password = ""
Else
   lblAvviso1.Visible = False
   lblAvviso.Visible = True
   Timer1.Interval =  100 
   Login = adUtenti.Recordset!ID_login
   Cat = adUtenti.Recordset!id_cat
End If
End Sub

Private Sub Timer1_Timer()
   Timer1.Interval =  0 
   Timer2.Interval =  500 
   Set frmMediPragma = Nothing
   Load frmSCHEMA
   Select Case Cat
      Case "0"
         frmRicerca.mnuMod.Visible = False
         frmRicerca.mnuExcel.Visible = False
         'frmRicerca.mnuWord.Visible = False
      Case "1"
         frmRicerca.mnuMod.Visible = True
         frmRicerca.mnuExc.Visible = True
        ' frmRicerca.mnuWord.Visible = True
    End Select
    frmRicerca.Show
    Unload Me
    Set frmMediPragma = Nothing
    Exit Sub
End Sub

'***********************************************************
Private Sub Form_Load()
'frmMediPragma
Call WriteLog("Form_Load_frmMediPragma_Nuova Prova")
Set Rst = New ADODB.Recordset
Rst.CursorLocation = adUseClient
Set Rst = adUtenti.Recordset
'
txtLogin.Text = ""
txtPassword = ""
Password = ""
Cat = ""
Timer3.Interval =  500 
End Sub

Private Sub Timer2_Timer()
lblAvviso.ForeColor = QBColor(Rnd *  15 )
End Sub

Private Sub Timer3_Timer()
lblAvviso1.ForeColor = QBColor(Rnd *  15 )
End Sub

'***********************************************************
Private Sub txtPassword_KeyPress(KeyAscii As Integer)
'sostituire delle lettere di password con ***
If (KeyAscii >  64 ) And (KeyAscii <  144 ) Then
    Password = Trim(Password) & Chr(KeyAscii)
    KeyAscii = "42"
    Label2.Caption = Password
End If
End Sub
'***********************************************************
Private Sub cmdInvio_Click()
'
Filter = "Login = " & " '" & Trim(LCase(txtLogin.Text)) & "' " & _
          " And Password = " & " '" & Password & "' "
Rst.Filter = Filter
'
lblVietatoAccesso.Visible = False
If adUtenti.Recordset.RecordCount =  0  Then
   'frmMediPragma.Show
   lblVietatoAccesso.Caption = "Login o Password non è valido, inserire di nuovo o rivolsersi ad amministratore "
   lblVietatoAccesso.Visible = True
   txtLogin = ""
   txtPassword = ""
   Password = ""
Else
   lblAvviso1.Visible = False
   lblAvviso.Visible = True
   Timer1.Interval =  100 
   Login = adUtenti.Recordset!ID_login
   Cat = adUtenti.Recordset!id_cat
End If
End Sub

Private Sub Timer1_Timer()
   Timer1.Interval =  0 
   Timer2.Interval =  500 
   Set frmMediPragma = Nothing
   Load frmSCHEMA
   Select Case Cat
      Case "0"
         frmRicerca.mnuMod.Visible = False
         frmRicerca.mnuExcel.Visible = False
      Case "1"
         frmRicerca.mnuMod.Visible = True
         frmRicerca.mnuExc.Visible = True
    End Select
    frmRicerca.Show
    Unload Me
    Set frmMediPragma = Nothing
    Exit Sub
End Sub

'***********************************************************
Private Sub cmdUscire_Click()
Rst.Close
Set Rst = Nothing
Unload Me
Set frmMediPragma = Nothing
End Sub