Input string was not in a correct format in asp.net

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.Data" %>
<%@ Import Namespace="System.Data.OleDb" %>
<script runat="server">
	Sub Page_Load(sender as Object, e as EventArgs)
		If Not Page.IsPostBack
			BindData()
		End If
	End Sub


	Sub BindData()
		'1. Create a connection
		Const strConnString as String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
								"Data Source=C:\db.mdb"
		Dim objConn as New OleDbConnection(strConnString)
		objConn.Open()	'You must open the db connection before populating the DataReader
	
	
		'2. Create a command object for the query
		Const strSQL as String = "SELECT * FROM players"
		Dim objCmd as New OleDbCommand(strSQL, objConn)
	
	
		'3. Create/Populate the DataReader
		Dim objDR as OleDbDataReader
		objDR = objCmd.ExecuteReader()	
	
	
		dgProducts.DataSource = objDR
		dgProducts.DataBind()	
	End Sub
	
	
	Sub dgProducts_Edit(sender As Object, e As DataGridCommandEventArgs)
		dgProducts.EditItemIndex = e.Item.ItemIndex
		BindData()
	End Sub

	Sub dgProducts_Cancel(sender As Object, e As DataGridCommandEventArgs)
		dgProducts.EditItemIndex = -1
		BindData()
	End Sub

	Sub dgProducts_Update(sender As Object, e As DataGridCommandEventArgs)
		'Read in the values of the updated row
		Dim PLAYERNO as Integer = e.Item.Cells(1).Text
		Dim NAME as String = CType(e.Item.Cells(2).Controls(0), TextBox).Text
		Dim INITIALS as String = CType(e.Item.Cells(3).Controls(0), TextBox).Text
		Dim BIRTH_DATE as String = CType(e.Item.Cells(4).Controls(0), TextBox).Text

		Dim SEX as String = CType(e.Item.Cells(5).Controls(0), TextBox).Text
		Dim JOINED as String = CType(e.Item.Cells(6).Controls(0), TextBox).Text
		Dim STREET as String = CType(e.Item.Cells(7).Controls(0), TextBox).Text
		Dim HOUSENO as String = CType(e.Item.Cells(8).Controls(0), TextBox).Text
		Dim POSTCODE as String = CType(e.Item.Cells(9).Controls(0), TextBox).Text
		Dim TOWN as String = CType(e.Item.Cells(10).Controls(0), TextBox).Text
		Dim PHONENO as string = CType(e.Item.Cells(11).Controls(0), TextBox).Text
		Dim LEAGUENO as string = CType(e.Item.Cells(12).Controls(0), TextBox).Text
		
		
		'Construct the SQL statement using Parameters
		Dim strSQL as String = "UPDATE [PLAYERS] SET [Name] = @Name, " & _
							   "[INITIALS] = @INITIALS, [BIRTH_DATE] = @BIRTH_DATE " & _
							   "[SEX] = @SEX, [JOINED] = @JOINED " & _
							   "[STREET] = @STREET, [HOUSENO] = @HOUSENO " & _
							   "[POSTCODE] = @POSTCODE, [TOWN] = @TOWN " & _
							   "[PHONENO] = @PHONENO, [LEAGUENO] = @LEAGUENO " & _
							   "WHERE [PLAYERNO] = @PLAYERNO"

		' Create Instance of Connection and Command Object
		'1. Create a connection
		Const strConnString as String = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
								"Data Source=C:\db.mdb"
		Dim objConn as New OleDbConnection(strConnString)
		objConn.Open()

		Dim myCommand as OleDbCommand = new OleDbCommand(strSQL, objConn)
		myCommand.CommandType = CommandType.Text

		' Add Parameters to the SQL query
		Dim parameterName as OleDbParameter = new OleDbParameter("@Name", OleDbType.VarWChar, 75)
		parameterName.Value = Name
		myCommand.Parameters.Add(parameterName)

 


			   Dim parameterINITIALS as OleDbParameter = new OleDbParameter("@INITIALS", OleDbType.VarWChar, 75)
		parameterINITIALS.Value = INITIALS
		myCommand.Parameters.Add(parameterINITIALS)

 

			   Dim parameterBIRTH_DATE as OleDbParameter = new OleDbParameter("@BIRTH_DATE", OleDbType.VarWChar, 75)
		parameterBIRTH_DATE.Value = BIRTH_DATE
		myCommand.Parameters.Add(parameterBIRTH_DATE)

 


				Dim parameterSEX as OleDbParameter = new OleDbParameter("@SEX", OleDbType.VarWChar, 75)
		parameterSEX.Value = SEX
		myCommand.Parameters.Add(parameterSEX)


				Dim parameterJOINED as OleDbParameter = new OleDbParameter("@JOINED", OleDbType.VarWChar, 75)
		parameterJOINED.Value = JOINED
		myCommand.Parameters.Add(parameterJOINED)


				Dim parameterSTREET as OleDbParameter = new OleDbParameter("@STREET", OleDbType.VarWChar, 75)
		parameterSTREET.Value = STREET
		myCommand.Parameters.Add(parameterSTREET)

				Dim parameterHOUSENO as OleDbParameter = new OleDbParameter("@HOUSENO", OleDbType.VarWChar, 75)
		parameterHOUSENO.Value = HOUSENO
		myCommand.Parameters.Add(parameterHOUSENO)

				Dim parameterPOSTCODE as OleDbParameter = new OleDbParameter("@POSTCODE", OleDbType.VarWChar, 75)
		parameterPOSTCODE.Value = POSTCODE
		myCommand.Parameters.Add(parameterPOSTCODE)


				Dim parameterTOWN as OleDbParameter = new OleDbParameter("@TOWN", OleDbType.VarWChar, 75)
		parameterTOWN.Value = TOWN
		myCommand.Parameters.Add(parameterTOWN)

		Dim parameterPHONENO as OleDbParameter = new OleDbParameter("@PHONENO", OleDbType.Currency)
		parameterPHONENO.Value = PHONENO
		myCommand.Parameters.Add(parameterPHONENO)

		Dim parameterLEAGUENO as OleDbParameter = new OleDbParameter("@LEAGUENO", OleDbType.VarWChar)
		parameterLEAGUENO.Value = LEAGUENO
		myCommand.Parameters.Add(parameterLEAGUENO)

		Dim parameterPLAYERNO as OleDbParameter = new OleDbParameter("@PLAYERNO", OleDbType.Integer)
		parameterPLAYERNO.Value = PLAYERNO
		myCommand.Parameters.Add(parameterPLAYERNO)

		myCommand.ExecuteNonQuery()   'Execute the UPDATE query
		
		objConn.Close()
		
		
		'Finally, set the EditItemIndex to -1 and rebind the DataGrid
		dgProducts.EditItemIndex = -1
		BindData()		
	End Sub

</script>
<html>
<head>
</head>
<body>
	<form runat="server">
		<asp:DataGrid id="dgProducts" runat="server"
			AutoGenerateColumns="False" CellPadding="4"
			HeaderStyle-BackColor="Black"
			HeaderStyle-ForeColor="White"
			HeaderStyle-HorizontalAlign="Center"
			HeaderStyle-Font-Bold="True"
			
			EditItemStyle-BackColor="#eeeeee"
			
			OnEditCommand="dgProducts_Edit"
			OnUpdateCommand="dgProducts_Update"
			OnCancelCommand="dgProducts_Cancel">
		
			<Columns>
				<asp:EditCommandColumn EditText="Edit Info" ButtonType="PushButton"
						UpdateText="Update" CancelText="Cancel" />
				<asp:BoundColumn HeaderText="PLAYERNO" DataField="PLAYERNO"
						ReadOnly="True" />				
				<asp:BoundColumn HeaderText="NAME" DataField="NAME"
						ItemStyle-HorizontalAlign="Right"
						DataFormatString="{0:$#,###.##}" />
				<asp:BoundColumn HeaderText="INITIALS" DataField="INITIALS" />
				<asp:BoundColumn HeaderText="BIRTH_DATE" DataField="BIRTH_DATE" />   
				<asp:BoundColumn HeaderText="SEX" DataField="SEX" />  
				<asp:BoundColumn HeaderText="JOINED" DataField="JOINED" />  
				<asp:BoundColumn HeaderText="STREET" DataField="STREET" />  
				<asp:BoundColumn HeaderText="HOUSENO" DataField="HOUSENO" />  
				<asp:BoundColumn HeaderText="POSTCODE" DataField="POSTCODE" />  
				<asp:BoundColumn HeaderText="TOWN" DataField="TOWN" />  
				<asp:BoundColumn HeaderText="PHONENO" DataField="PHONENO" />  
				<asp:BoundColumn HeaderText="LEAGUENO" DataField="LEAGUENO" />					   
			</Columns>		
		</asp:DataGrid>
		
	</form>
</body>
</html>