Help changing this function into vb.net?!?!

[OmegaPirate0]

I am trying to convert VBA code in VB.net and I have made it to a point but I can't convert resultset into vb.net. RS was dim as resultset in VBA thought i could just change it to dataset but am getting errors?

Function GetG(sDB As String, sServ As String, sJob As String) As String

'sDB = Database name, sServ = Server\Instance, path = job.path
Dim conString As String = ("driver={SQL Server};server = " & TextBox1.Text & " ; uid = username;pwd=password:database = " & TextBox2.Text)
Dim RS As DataSet
Dim conn As SqlConnection = New SqlConnection(conString)
Dim cmd As SqlCommand


conn.Open()

cmd = New SqlCommand("SELECT [ID],[Name] FROM dbo.PropertyTypes")
Do While Not RS.Tables(0).Rows.Count = 0
If RS.Fields(1).Value = sJob Then
GetG = RS.Fields(0).Value
GetG = Mid(GetG, 2, 36)
Exit Do
End If

DataSet.MoveNext
Loop
conn.Close

End Function

Continue reading...