Please help, I have an SQL database and I want to use VB to log on, return a recordset that will be previewed in Crystal Reports.

However, I get an error message all the time "login failed for user "sa"" and then another one "cannot open SQL server".

What is wrong??? (The password is correct, I am able to get a good recordset in return). Do I lose the connection somewhere??

Here is my code:

Public Conn As New ADODB.Connection
Public rs As New ADODB.Recordset
Public err As ADODB.Error
Public str As String
---------------------------------------
Public Function crystal()

Dim application As CRPEAuto.application
Dim Report As CRPEAuto.Report

str = "select * from performance where accno=400002"

'login
Conn.Open "Driver=SQL Server;Server=UNREAL;Database=performance;User ID=sa;Password=laser"
Set rs = Conn.Execute(str)

'test for recordset (works fine)
rs.MoveFirst
MsgBox rs(1).Value

'test for connection (works fine)
If Conn.State = adStateOpen Then
MsgBox "OK"
Else
MsgBox "Not OK"
End If

'Have not even tried the SetPrivateData yet since the Preview doesn't work...
'report.Database.Tables("ado").SetPrivateData 3, rs

Set application = CreateObject("Crystal.CRPE.Application")
Set Report = application.OpenReport("H:\vbkul\perf2\perf2port.rpt")

'This is where it fails
Report.Preview

MsgBox "Here is the report"

Set Report = Nothing
Set application = Nothing
rs.Close
Conn.Close

End Function
---------------------------------------------------

If there is anybody out there that could help I would be very happy!!!