Помогите зарегистрировать источник ODBC в реестре Win98

Dim strDescription As String: strDescription = 'mydesc'
Dim strServer As String: strServer = 'AlexV'
Dim strDatabase As String: strDatabase = 'Tabs'
  
Dim strAttributes As String
Dim errLoop As Error
 
strAttributes = 'Database=Tabs' & vbCr & 'Description=' & strDescription & vbCr & 'OemToAnsi=No' & vbCr & 'Server=' & strServer
 
On Error GoTo Err_Register
DBEngine.RegisterDatabase strDatabase, 'SQL Server', True, strAttributes
On Error GoTo 0
MsgBox 'Для просмотра изменений вызовите ' & _
  'regedit.exe: ' & 'HKEY_CURRENT_USER ' & _
  'SoftwareODBCODBC.INI'
Exit Sub
Err_Register:
  ' Уведомляет пользователя о любых ошибках,
  ' являющихся  следствием недопустимых данных.
  If DBEngine.Errors.Count > 0 Then
    For Each errLoop In DBEngine.Errors
      MsgBox 'Код ошибки: ' & errLoop.Number & vbCr & errLoop.Description
    Next errLoop
  End If
  Resume Next