Thuật toán tìm bao đóng (visual basic 6)

Hàm tìm bao đóng viết bằng vb.net! anh em xem thử có gì sai sót thì nhắc mình nhé!
Shared Function timbaodong(ByVal str As String)
        Dim qh As DataTable
        Dim pth As DataTable
        qh = ketnoi.sql("select * from ldqh") 'lay ra các luoc do quan he
        pth = ketnoi.sql("select * from dm_pthpq") 'tap pth cua cac luoc do qh
        Dim co(100) As Boolean 'bien co kiem tra pth da xet hay chua
        Dim i
        For i = 0 To pth.Rows.Count - 1 'ban dau thi tat ca cac pth deu chua dc xet
            co(i) = True
        Next
        Dim kt = True 'kiem tra xem trong lan duyet dó bao dong có đc them vao thuoc tinh moi hay ko?
        While kt = True
            kt = False
            For i = 0 To pth.Rows.Count - 1
                If co(i) = True And chuoi_chua_chuoi(str, pth.Rows(i).Item("vt")) = True Then
                    str = noichuoi(str, pth.Rows(i).Item("vp")) 'hop chuoi
                    kt = True
                    co(i) = False
                End If
            Next
        End While
       
        Return str 'kq bao đóng
End Function




--------------------------------------http://muckich.blogspot.com/----------------------------------------