Привести VBA модуль Function на VB.NET - Visual Basic .NET

Option Compare Database
Option Explicit
 
Public Function JoinStrOnGrp7(on_id As Integer) As String
 
Dim db As Database
Dim rs As Recordset
 
Set db = CurrentDb()
Set rs = db.OpenRecordset("SELECT [Предмет] FROM [t7] WHERE [ID]=" & Str(on_id))
JoinStrOnGrp7 = ""
Do While Not rs.EOF
   If JoinStrOnGrp7 <> "" Then JoinStrOnGrp7 = JoinStrOnGrp7 + ","
   JoinStrOnGrp7 = JoinStrOnGrp7 + Nz(rs![Предмет], "                                      ")
   rs.MoveNext
Loop
 
End Function