jan19.zip
Sir i want to create a separator bar for the column in listbox ,i have written a code . it is working fine .but i need separator bar to distinguish column in a list box :
Dim con As ADODB.Connection
Dim rs As ADODB.Recordset
Dim i As Integer
Private Sub Form_Load()
Set con = New Connection
con.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=\asfserver\itp$\Product_tabletest.mdb")
Set rs = New ADODB.Recordset
rs.Open "SELECT * From MR ", con, adOpenDynamic, adLockOptimistic
While (Not (rs.EOF))
List1.AddItem (rs!req_no & vbNullString & " " & rs!emp_name & " " & rs!job_no & " " & rs!mr_date)
rs.MoveNext
Wend
End Sub