Access - conexion con sql server 2014

function CONECTAR2014 ()

On Error GoTo AdmErr

Dim StrServidor As String

Dim StrBdatos As String

CONECTAR2014 = False

StrServidor = "DESKTOP-THOMBBM\SQLEXPRESS"

StrBdatos = "SGAPDATO"

Set gCon = New ADODB.Connection

Dim StrCon As String

StrCon = "Provider=SQLOLEDB;Data Source=" & StrServidor & "; Initial Catalog=" & StrBdatos & ";Connection Timeout=300;"

Trusted_Connection = True

On Error Resume Next

Err.Clear

gCon.Open StrCon

If Err.Number > 0 Then

    gStrUltError = "Error al conectarse a servidor " & Err.Description

    GoTo Salir

End If

'On Error GoTo AdmErr

Dim RstDet As ADODB.Recordset

Set RstDet = Nothing

Set RstDet = New ADODB.Recordset

'

'

gStrSQL = "select * from dbo.TBLZCARGO;"

'

'

RstDet.Open gStrSQL, gCon, adOpenStatic, adLockReadOnly

While Not RstDet.EOF

'

    Debug.Print RstDet("Id"): Debug.Print RstDet("Cargo")

    RstDet.MoveNext

Wend

CONECTAR2014 = True

Salir:

    Exit Function

AdmErr:

    gStrUltError = "Error al conectarse " & Err.Description

End Function