Option Compare Database
Option Explicit

Public Function GetNewConnection() As ADODB.Connection
    Dim oCon As New ADODB.Connection
    Dim sCnStr As String    

    If oCon.State = adStateOpen Then
        oCon.Close
    End If
    
    sCnStr = "Provider=SQLNCLI11;Server=dogt;" & _
        "Database=Production;Integrated Security=SSPI;"
    oCon.Open sCnStr
    
    If oCon.State = adStateOpen Then
        Set GetNewConnection = oCon
    End If
    
End Function

Option Compare Database
Option Explicit
Private Sub Form_Load()
    Dim objConn As New ADODB.Connection
    Dim objRs As New ADODB.Recordset

    On Error GoTo ErrHandler:

    Set objConn = GetNewConnection

    With objRs
        Set .ActiveConnection = objConn
        .Source = "select * from ClassUnitMeas"
        .LockType = adLockOptimistic
        .CursorType = adOpenDynamic
        .CursorLocation = adUseClient
        .Open
    End With

    Set Me.Recordset = objRs

    objRs.Close
    objConn.Close
    Set objRs = Nothing
    Set objConn = Nothing

ErrHandler:
    If objRs.State = adStateOpen Then
        objRs.Close
    End If
    If objConn.State = adStateOpen Then
        objConn.Close
    End If

    Set objRs = Nothing
    Set objConn = Nothing

    If Err <> 0 Then
        MsgBox Err.Source & "-->" & _
        Err.Description, , "Error"
    End If
End Sub