[求助]数据由后台送到前台问题

这段代码那里错误，谁能帮我调试一下！

那位大虾有更好的代码？   
                Dim love As String  ' 爱好的数据回送
               
                Dim t_love As String
               
                Dim i As Integer = 1
               
                Dim k As Integer = 2
               
                Dim j As Integer
                     
                love = dr("z_love")
               
                For i = 1 To Len(love) + 2
                    
                    For k = 2 To Len(love)
                        
                        t_love = Mid(love, i, k)
                           
                        For j = 0 To Cbl_love.Items.Count - 1
        
                            If t_love = Cbl_love.Items(j).Text Then
                                
                                ' Lab_pwd.Text = Cbl_love.Items(j).Text
                           
                                Cbl_love.Items(j).Selected = True
                                
                                Exit For
                           
                            End If
            
                        Next
                        
                        i = i + 2
                        
                        k = k + 2
                        
                    Next
                    
                Next