Connection with crystal report by code

Hi,
First you need a report in your solution and design it the way you want it.
Private m_crAvstamning As CRAXDRT.Report

The following code is from when the user clicks on a menu to show a report already created.

Private Sub mnuReportAvstamning_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles mnuReportAvstamning.Click
Dim sDate As String
Dim f As Object

On Error GoTo Err_mnuReportAvstamning_Click
frmGetDate.ShowDialog()
If frmGetDate.DialogResult = Windows.Forms.DialogResult.OK Then

sDate = Replace(frmGetDate.mdDatum, "-", "")
frmGetDate.Close()

crApp = New CRAXDRT.Application
m_crAvstamning = crApp.OpenReport(Application.StartupPath & "\avstamning.rpt")

For Each f In m_crAvstamning.FormulaFields
With f
f.Text = ""
End With
Next

If Not m_crAvstamning.Database.Tables(1).TestConnectivity Then
m_crAvstamning.Database.Tables(1).ConnectBufferString = objConnector.GetConnectionString
End If

m_crAvstamning.Database.Tables(1).Location = mDatabase & ".dbo.KNBS503"

m_crAvstamning.FormulaFields(1).Text = "'" & System.DateTime.Now.ToShortTimeString & "'" 'ABE Now var Time
m_crAvstamning.FormulaFields(2).Text = "'" & Environ("computername") & "'"

m_crAvstamning.ParameterFields(1).ClearCurrentValueAndRange()
m_crAvstamning.ParameterFields(1).AddCurrentValue(mTeam)
m_crAvstamning.ParameterFields(2).ClearCurrentValueAndRange()
m_crAvstamning.ParameterFields(2).AddCurrentValue(sDate)

m_crAvstamning.Database.AddOLEDBSource(objConnector.GetConnectionString, "KNBS500;1")
frmShowReport.Show()
frmShowReport.ShowReport(m_crAvstamning)
End If
Exit_mnuReportAvstamning_Click:
Exit Sub

Err_mnuReportAvstamning_Click:
'MsgBox Err & " " & Error
Resume Exit_mnuReportAvstamning_Click
End Sub

Hope it helps you.
/Anne