Friend Sub to class convertion

[absent]

Right here goes I hope... I have a Friend sub I want to convert to a class? is there a way to do it? attached is the code incase there ahve to be some changes. I admit the code is not my own design, but have a use for ti as a class instead of a friend sub.

Treeviews and classes are new to me in VB.net as I'm still learning.

Friend Sub BindToTreeview(ByVal TableName As String, ByVal FieldName As String, ByVal tView As TreeView)

'Variables
Dim DbConn As ADODB.Connection
Dim DBPATH As String

DBPATH = AppPath & "Time.mdb"

'Connect To Database
Dim DbConnString As String
DbConnString = "Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & DBPATH

'Open Database
DbConn = New ADODB.Connection
DbConn.ConnectionString = DbConnString
DbConn.Open()

'Create SQL
Dim SQL As String
SQL = "SELECT " & FieldName & " FROM " & TableName & ";"

'Create Recordset
Dim rSet As ADODB.Recordset
rSet = DbConn.Execute(SQL)

'Bind To Treeview
Dim tvItem As TreeNode
tvItem = New TreeNode
tvItem.Text = FieldName

While Not rSet.EOF
If rSet.Fields(0).ActualSize <> 0 Then tvItem.Nodes.Add(rSet.Fields(0).Value)
rSet.MoveNext()
End While

tView.Nodes.Add(tvItem)

'Close Database
DbConn.Close()
End Sub

Thanx a million

 

[Robby]

Before conerting it to a class perhaps get it converted to ADO.NET.

 

[absent]

why would I need to convert it to ADO.net? all I'm really wanting to do is create a reusable bind to tree function to bind a few treeviews in an app I'm writing... I'm still new to vb.net so still hazy on why and how to do things