how to display record in textbox on SSTab from vb6

[mszanya]

i have record saved in msaccess which i want to display on an SSTab containing text boxes and combo boxes. i have created a procedure to display the record on click of the ID which appears on a list box. this is he code:

Private Sub lstSearch_Click()
If cboCategory.Text = "SKIN" Then
DisplaySkinRecord
Else
DisplayStateRecord
End If
End Sub

this is the procedure:

Public Sub DisplaySkinRecord()
'On Error Resume Next
Dim cn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cn = New ADODB.Connection
Set rs = New ADODB.Recordset
With cn
.ConnectionString = DBPATH
.Open
End With
With rs
.ActiveConnection = cn
.CursorLocation = adUseClient
.CursorType = adOpenDynamic
.LockType = adLockOptimistic
.Source = "Select * From SkinRecord Where FileNumber ='" & Trim(txtFileNumber.Text) & "'"
.Open
If .RecordCount > 0 Then
cboSS.Text = .Fields("LandCategory")
txtFileNumber.Text = .Fields("FileNumber")
txtPlotNo1.Text = .Fields("PlotNo")
cboArea1.Text = .Fields("Area")
cboUser1.Text = .Fields("User")
cboBlock1.Text = .Fields("Block")
txtSite.Text = .Fields("Site")
cboTerm.Text = .Fields("Term")
dtpCommence.Value = .Fields("Commence")
dtpExpiry.Value = .Fields("Expiry")
txtRentPassing.Text = .Fields("RentPassing")
cboRevision.Text = .Fields("RentRevision")
txtLesseeName.Text = .Fields("LesseeName")
txtAddress.Text = .Fields("Address")
txtContact.Text = .Fields("Contact")
cboGrantor.Text = .Fields("Grantor")
dtpGrantDate.Value = .Fields("GrantDate")
dtpEntryDate.Value = .Fields("EntryDate")
End If
End With
End Sub