کسی تبدیل این کد به vb.net رو بلده ؟

[mohsen_iceman2000]

این کد می ره آخرین شماره اشتراک رو پیدا می کنه و یه دونه اضافه می کنه ّکسی اینو می تونه به وی بی دات نت تبدیل کنه ؟ خودش vb6 است

RsFind = New Recordset
RsFind.Open("Select Max(NumberEshterak) As MaxEshterak From Res_tblMoshtari", con, adOpenKeyset, adLockOptimistic)

If IsNull(RsFind!MaxEshterak) Then
Me.txtCodeEshterak.Text = 1
Else


txtCodeEshterak.Text = RsFind!MaxEshterak

txtCodeEshterak.Text = txtCodeEshterak.Text + 1



End If

[vb341]

روش کار تقریبا اینطوریه:

Try
If Con.State = ConnectionState.Open Then
Con.Close()
End If

Dim Da1 As SqlDataAdapter = New SqlDataAdapter("select * from Tbl_Personel where PerId='" & TextBox1.Text.Trim & "'", Con)
Dim Ds1 As New DataSet()

Ds1.Clear()

Con.Open()

Da1.Fill(Ds1, "Tbl_Personel")

For Each dr As DataRow In Ds1.Tables(0).Rows
TextBox2.Text = dr("FirstName") & " " & dr("LastName")
Next

Catch ex As Exception
MessageBox.Show(ex.Message.ToString)
Finally
Con.Close()
End Try