Problem ang. msSQL og Visual Basic

Jeg har tidligere forsøgt, med gode resultater, at forbinde et Visual Basic-program til en msSQL-server, og derefter trække data ud af den - og lagre.

Men da jeg nu, et par måneder efter, hiver koden frem igen, ser den ikk ud til at virke:

Option Explicit

Private objConn As Object
Private objRs  As Object


Public Function MsSQL(ByVal strHost As String, _
                      ByVal strBase As String, _
                      ByVal strUser As String, _
                      ByVal strPass As String, _
                      ByVal strBruger As String, _
                      ByVal strSQL As String, _
                      ByVal strAdgang As String) As Boolean
                     

Dim strConn As String
 
  strUser = "sa"
  strPass = "e20zulu"
  strHost = "83.90.157.221"
  strBase = "hjemmeside"

  strConn = "Provider=SQLOLEDB.1" & _
            ";user id=" & strUser & _
            ";pwd=" & strPass & _
            ";Initial Catalog=" & strBase & _
            ";server=" & strHost & ";"


    With objConn
        .CommandTimeout = 30
        .ConnectionTimeout = 15
        .ConnectionString = strConn
        .Open
        Set objRs = .Execute(strSQL)



    End With
End Function

Private Sub cmdInterest_Click()

Set objConn = CreateObject("ADODB.Connection")
  Set objRs = CreateObject("ADODB.RecordSet")



  'Husk at ænder HOST, DATABASE, USER og PASS til din SQL-Server _
  Bruger og Adgang er de navne du tjekker..
  Me.Caption = MsSQL("83.90.157.221", _
                    "hjemmeside", _
                    "sa", _
                    "e20zulu", _
                    "", _
                    "SELECT * FROM [brugere] where ID = 1", _
                    "")


      Label1.Caption = objRs("brugernavn")



End Sub


------------------------

Men nu melder min SQL-server fejl? Programmet fryser et par sekunder, og derefter giver mig svaret:

Run-time error '-2147467259 (80004005)':
[DNNETLIB][ConnectionOpen (PreLoginHandshake()).]General network error. Check your network documentation.

Jeg giver 200 point til den som løser det for mig. Sådan noget skal bare virke :/.