Visual Basic

cn.Open()<br />
cmd.Connection = cn<br />
cmd.CommandText = "select max(EMP_CODE)+1 as [last] from EMP_DETAILS where PLACE='" & ComboBox1.Text & "'"<br />
dr=cmd.executeREADER<br />
While dr.Read<br />
TextBox1.Text = dr.Item("last")<br />
End While<br />
cn.Close()

<br />
<br />
Dim MyType = xyz.getType()<br />
Dim myList As new Generic.List(Of MyType)<br />
<br />

Public Class MyClass
    Public Field1
    Public Field2
End Class
 
 .
 .
 
 Dim myCollection As New List(Of MyClass)

Dim myDialog As New MySettingsDialog
If myDialog.ShowDialog(Me) = DialogResult.Ok Then
    ' Get any needed data from the Settings Dialog
End If
myDialog.Dispose()