Visual Basic

Dim ConStr As String = "Data Source=1.1.1.1; initial Catalog=My_Databse; User Id=UserA; Password=xxxxxx"

dim con as new sqlconnection
con.connectionstring=ConStr
con.open()
'Do whatever you need to do in the first database here
'If there is a chance that some process will close the connection
'you also need to check for that first. The ChangeDatabase method
'requires an open connection
con.ChangeDatabase("Another_Database")
'Do whatever you need to do in the other database here

\\workstationName\C$\folderPath\filename

Sub UpdateProg(pct)<br />
With ProgressIndicator

  .FrameProgress.Caption = Format(pct,"0%")<br />
  .LabelProgress.Width = pct * (.FrameProgress.Width - 10)<br />
End Width<br />
DoEvents

'Enable XP visual styles' 

Imports System.Windows.Forms
Imports System.Runtime.InteropServices

Private Declare Unicode Function SetWindowTheme Lib "uxtheme.dll" _<br />
                                      (ByVal hWnd As IntPtr, _<br />
                                       ByVal pszSubAppName As String, _ <br />
                                       ByVal pszSubIdList As String) As Integer<br />
Private m_intReturn As Integer

Dim rpt As New CrystalReport1
Dim txt As TextObject

txt = rpt.Section2.ReportObjects("Text1")
txt.Text = "this is first line " & Chr(13)
txt.Text &= "this is second line "

Dim rpt As New CrystalReport1
Dim txt As TextObject

txt = rpt.Section2.ReportObjects("Text1")
txt.Text = "this is first line "
txt.Text &= Chr(13) & "this is second line "