какой-то код базы данных не работает после того, как я перешел с win7 на win10

Question

Dim WithEvents rs As Recordset
Dim db As Connection
Dim query As String

dim db as connection получает ошибку «пользовательский тип не определен».

У меня есть много других приложений с таким же кодом, которые не получают эту ошибку, и я понятия не имею, почему.