URGENT: Connection to SQL Database -

I've searched the site but cannot find a solution to my SQL Connection problem.

I am trying to connect to an SQL Database located on a NT4 Server (i'm no expert on SQL databases). The database is using SQL + NT Authentication, and I am supplying the Administrator username and password.

It returns the message :

Run Time error -2147217843 (80040e4d)

Logon Failed for user 'Administrator'.

My code is :

Private Sub Command1_Click()
Dim objConn As ADODB.Connection
Set objConn = New ADODB.Connection
objConn.ConnectionString = "Provider=SQLOLEDB.1;Persist Security Info=False;UID=Administrator;PWD=xxx;Initial Catalog=master;Data Source=WEBSWEEPER"

objConn.Open
If objConn.State = adStateOpen Then
MsgBox "Connection success"
Else
MsgBox "connection failed"
End If
End Sub


I wonder is there something in the database that needs to be started to allow me to connect. The database is up and running. I can create a DSN to the database that tests sucessfully, but I cannot get that to work correctly from VB6 either.

Any help much appreciated.
B.