vb code how to display multple line as i have mre row in return but displayonly one

[EDN Admin]

i hve a code which display only one line in text box any one please make it correct as my out put is from sotered procedure with date parameter as it display record but only one as i am new in VB or said to be my first program in vb6 so help of my
friends highly appriciated with advance. also need to print throug lcoal printer as well but beating head could not figure out how..............to print so help me please. code is as follows.
Option Explicit<br/>
Dim con As New ADODB.Connection<br/>
Dim rs As New ADODB.Recordset<br/>
Dim cmd As ADODB.Command<br/>
Dim Str_Please_Select_Date, strconnect As String
<br/>
Private Sub cmd_Rpt_Click()
Str_Please_Select_Date = Txt_Date.Text
Set cmd = New ADODB.Command<br/>
cmd.ActiveConnection = con<br/>
cmd.CommandType = adCmdStoredProc<br/>
cmd.CommandText = "Sp_0_0_test_Output_PackingLines"<br/>
<br/>
cmd.Parameters.Append cmd.CreateParameter("Str_Please_Select_Date", adVarChar, adParamInput, 10, Str_Please_Select_Date)<br/>
Set rs = cmd.Execute<br/>
If Not rs.EOF Then<br/>
If IsNull(rs.Fields(0)) = True Then<br/>
Txt_Sap = "Null"<br/>
Else<br/>
Txt_Sap = rs.Fields(0)<br/>
End If<br/>
End If<br/>
<br/>
<br/>
<br/>
Set cmd.ActiveConnection = Nothing<br/>
End Sub
<br/>
Private Sub Form_Load()<br/>
strconnect = "Provider=SQLOLEDB;Data Source=Pkmain;Initial Catalog=Pakingdb2"
<br/>
con.Open strconnect, "sa", "saa"<br/>
End Sub

Eric
ericcisco

View the full article