Dim RBPH As Integer = 0
Private Function EqualString(ByVal ROID As String, ByVal RB As Integer) As String
Dim TB_ID As String = ""
Dim i As Integer = DataTable02.Rows.Count
For ri As Integer = RB To i - 1
If String.Equals(ROID, DataTable02.Rows(ri).Item("Column01")) Then
TB_ID = DataTable02.Rows(ri).Item("Column02")
RBPH = ri
End If
Next
Return TB_ID
End Function