Home/ Questions/Q 4076076
In Process

The Archive Base Latest Questions

Editorial Team
  • 0
Asked: 2026-05-20T17:22:45+00:00

I get the compile-time error User-defined types not defined on this line: Dim cn

  • 0

I get the compile-time error “User-defined types not defined” on this line:

Dim cn As ADODB.Connection

What could be wrong?

Code:

Sub test()

    Dim cn As ADODB.Connection

    'Not the best way to get the name, just convenient for notes

    strFile = Workbooks(1).FullName
    strCon = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strFile & ";Extended Properties=""Excel 8.0;HDR=Yes;IMEX=1"";"
    Set cn = CreateObject("ADODB.Connection")
    'For this to work, you must create a DSN and use the name in place of

    'DSNName

    'strSQL = "INSERT INTO [ODBC;DSN=DSNName;].NameOfMySQLTable " & "Select AnyField As NameOfMySQLField FROM [Sheet1$];"
     strSQL = "SELECT F1 FROM [Sheet1$];"
     cn.Execute strSQL
End Sub
Share

Leave an answer

You must login to add an answer.

Need An Account,

1 Answer

  1. Editorial Team

    I had forgotten to add a reference to “Microsoft ActiveX Data Objects 2.5 Library”: This reference is required for early binding.

    How to get to that reference:

    Tools > References > Check the checkbox in front of “Microsoft ActiveX Data Objects 2.5 Library”

    Other libraries that work include:

    Microsoft ActiveX Data Objects 2.6 Library

    Microsoft ActiveX Data Objects 2.7 Library

    Microsoft ActiveX Data Objects 2.8 Library

    Microsoft ActiveX Data Objects 6.1 Library

    • 0