vb6 and crystal report 8.5 msslq 2008 r2

[KURANBK]

Rep_form.cr1.LogonInfo(0) = rep_con

What's rep_con?
Post the value

Hi,
thanks for your good co-operations

My question if their is problem inlink then report should not work for single user table in CR8.5.
I think so sowhere multi table used setting probelm

''''''MDIForm1.Show

Sub Main()
Set con = New ADODB.Connection
MRCREPORT = App.Path & "\REPORT\"
MACHINE_NAME = MDIForm1.Winsock1.LocalHostName
If con.State = 1 Then con.Close
con.Open "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;password=Doehler#123;Initial Catalog=FSDBMR;Data Source=192.168.0.131"
rep_con = "DSN=DILFx;uid=sa;pwd=Doehler#123;dsq=FSDBMR"
DD = "select getdate() serverdate"
Set rs = New ADODB.Recordset
rs.Open DD, con, adOpenDynamic
serverdate = Format(rs!serverdate, "DD-MMM-YYYY")
DD = " SELECT INVOICE_FLAG,POST_DATED_INV_FLAG,INVOICE_DAYS,START_DATE,END_DATE,BOM_PWORD,OLD_DATA_VIEW FROM SAN_SYS_SETTING"
If rs.State = 1 Then rs.Close
rs.Open DD, con, adOpenStatic
If rs.RecordCount > 0 Then
G_INVOICE_FLAG = rs!INVOICE_FLAG
G_POST_DATED_INV_FLAG = rs!POST_DATED_INV_FLAG
G_INVOICE_DAYS = rs!INVOICE_DAYS
F_DATE = IIf(IsNull(rs!START_DATE) = True, "01-APR-2012", rs!START_DATE)
T_DATE = IIf(IsNull(rs!END_DATE) = True, "01-APR-2013", rs!END_DATE)
G_OLD_DATA_VIEW = rs!OLD_DATA_VIEW
BOMPASS = rs!BOM_PWORD
End If
Login.Show

End Sub