Behöver hjälp med Visual Basic 2008

Hej jag behöver hjälp med en kod om någon kan hjälpa mig?

rs = New ADODB.Recordset
With rs
.Open("Select * from Info where Kund like '" & ListView1.FocusedItem.Text & "'", cn, 2, 3)
txtkund.Text = .Fields("Kund").Value
DateTimePicker1.Value = .Fields("Datum").UnderlyingValue
txttimmar.Text = .Fields("Timmar").Value
txtstyck.Text = .Fields("Styck").Value
txtapris.Text = .Fields("A-pris").Value
txtfrakt.Text = .Fields("Frakt").Value
txtatgard.Text = .Fields("Åtgärd").Value
txttotalt.Text = .Fields("Totalt").Value

cbstatus.Text = .Fields("Status").Value

End With

"cbstatus" Är en combox

Uppskattar snabbt svar!