Hi friends,
I am facing a problem when i am connecting my front end Visual Basic with Crystal Reports X1....everything is working fine...but even though i have given my Data source name,User iD and password... for connecting to the database...while running i still get the Authenticating message to give the userid and password for the crystal reports to connect to the databas.....i do not want to get this message.

please see through my code below....
====================================
Dim lstrsql As String
lstrsql = "select a.first_name,a.middle_name,a.last_name,a.employee_code,a.email_id,b.NET_SALARY from employeemaster a,payhistory b where a.DEPARTMENT_CODE=" & Trim(cboDepartment.Columns("departmentcode").Text) & " and a.bm_cd=" & GSTR_LOGINLOC & " and a.emp_active=-1 and b.PAY_MONTH='" & Trim(cboMonth.Columns(1).Text) & "' and b.PAY_YEAR='" & txtYear.Text & "' and a.EMPLOYEE_CODE=b.EMPLOYEE_CODE"
Set rslc = osqlhandlr.GetRs(lstrsql, 1)
If rslc.RowCount > 0 Then
Set rpt = rdApp.OpenReport(App.Path + "\reports\PaySlipEmail.rpt")
rpt.ExportOptions.ODBCDataSourceName = "ALZ"
rpt.ExportOptions.ODBCDataSourcePassword = "ALZ"
rpt.ExportOptions.ODBCDataSourceUserID = "ALZ"
Dim crParamDefs As ParameterFieldDefinitions
Dim crParamDef As ParameterFieldDefinition
Set crParamDefs = rpt.ParameterFields
With rpt
While Not rslc.EOF
For Each crParamDef In crParamDefs
With crParamDef
Select Case .ParameterFieldName
'this is the Stored Procedure Parameter
Case "PAYMONTH"
.SetCurrentValue Month("01" & "/" & cboMonth.Columns(1).Text & "/" & Trim(txtYear.Text))
Case "PAYYEAR"
.SetCurrentValue Year("01" & "/" & cboMonth.Columns(1).Text & "/" & Trim(txtYear.Text))
Case "LOCATIONCODE"
.SetCurrentValue Trim(GSTR_LOGINLOC)
Case "employee_code"
.SetCurrentValue Trim(rslc!EMPLOYEE_CODE)
Case Else 'etc.
End Select
End With
Next
.ExportOptions.FormatType = crEFTPortableDocFormat
.ExportOptions.DestinationType = crEDTEMailMAPI
'.ExportOptions.DiskFileName = App.Path & "\" & rslc!first_name & " " & rslc!middle_name & " " & rslc!last_name & ".pdf"
'.ExportOptions
'.ExportOptions.PDFExportAllPages = True
.ExportOptions.PDFExportAllPages = .ExportOptions.PDFExportAllPages
.ExportOptions.PDFFirstPageNumber = .ExportOptions.PDFFirstPageNumber
.ExportOptions.PDFLastPageNumber = .ExportOptions.PDFLastPageNumber
.ExportOptions.MailSubject = rslc!FIRST_NAME & " " & rslc!MIDDLE_NAME & " " & rslc!LAST_NAME
.ExportOptions.MailMessage = "Please Find the attachment for" & " " & Format("01" & "/" & cboMonth.Columns(1).Text & "/" & Trim(txtYear.Text), "mmm") & " Month Pay Slip"
.ExportOptions.MailToList = "it.prog1@alzahra.com"
'.ExportOptions.MailToList = rslc!email_id
.Export (False)
rslc.movenext
Wend
End With
End If
MsgBox "Done"
Me.MousePointer = vbNormal
End Sub


Please Help ME!!!!!!!!!!!!!!!!!!!