Private PriceRemoverConnection As ADODB.Connection

Sub Test()

  Set PriceRemoverConnection = CurrentProject.Connection

  If (PriceRemoverConnection Is CurrentProject.Connection) Then
    MsgBox "Да"
  else
    MsgBox "Нет"
  End If

End Sub

  If (CurrentProject.Connection Is CurrentProject.Connection) Then

Sub Test()
  Dim conn1 As ADODB.Connection
  Dim conn2 As ADODB.Connection

  Set conn1 = CurrentProject.Connection
  Set conn2 = conn1

  If (conn1 Is conn2) Then
    MsgBox "Да"
  Else
    MsgBox "Нет"
  End If

End Sub