wrote:

>Hello,
>
>We are experiencing a frustrating problem where we can connect to an internal
>SQL Server via any application EXCEPT Office apps (Excel, Word, etc.) using
>VBA. The error is:
>
> [DBNETLIB][ConnectionOpen(Connect()).]SQL Server does not exist or access
>denied.
>
>We're using very elementary code, that succeeds in VB programs, for example,
>but fails in Excel VBA. The code is:
>
> on error resume next
>
> Dim conn As ADODB.Connection
> Dim strw As String
> Set conn = New ADODB.Connection
> strw = "Provider=sqloledb;User ID=the_user;Password=the_password;" & _
> "Data Source=192.168.0.8;Initial Catalog=the_catalog;Network
>Library=DBMSSOCN;"
>
> ' errors out here
> conn.Open strw
>
> If Err.Number = 0 Then
> MsgBox "seems alright."
> Else
> MsgBox "error: " & Err.Description
> End If
>
> conn.close
> set conn = nothing
>
> We're stumped. We've never heard of any ADODB VB code, that works perfectly
>fine in a VB application, that suddenly stops working when ported to Excel
>VBA. We've tried specifying the port, changing the Network Library, etc., as
>well...all sorts of things.
>
>Help!