The Weird and The Wonderful

hi 
I have these code . What could cause above error ? Thanks 

state=1
switch (state)
{
case 1:
//do something

goto case 2;

case 2:

//do something

goto case 3;

case 3: 
//do something 
goto case 4;

............


case 100:

//do something

}

Private Sub ShowName(ByVal id As String)

	Dim daNames As New SqlDataAdapter("SELECT ID, NAME FROM TBL_NAMES", ConnectionString)

	Dim dsNames As New DataSet("NAMES")
	daNames.Fill(dsNames, "NAMES")

	Dim drNames As DataRow = dsNames.Tables(0).NewRow
	drNames("ID") = -1
	drNames("NAME") = ""

	dsNames.Tables(0).Rows.InsertAt(drNames, 0)

	If dsNames.Tables("NAMES").Rows.Count > 0 Then
		Try
			Dim drs() As DataRow = dsNames.Tables(0).Select("ID = " & id)
			txtName.Text = drs(0).Item("NAME").ToString
		Catch e As Exception
			'
		End Try
	Else
		txtName.Text = ""
	End If

End Sub

#if (LIBRARYFLAG)
    using Product.Client;
#else
    using Product.Server;
#endif
using Product.Server;