ADO Database ASP.Net

<%@ Import namespace="System.Data" %>
<%@ Import namespace="System.Data.OleDb" %>

  
    Validating a Field
  
  
    
                   style="Z-INDEX: 101; LEFT: 8px; POSITION: absolute; TOP: 8px"
             cellSpacing="0" cellPadding="0" width="300" border="0">
        
          
            FirstName
          
          
            
          
        
        
          
            LastName
          
          
            
          
        
        
          
                             OnClick="btnInsert_Click" width="298" text="INSERT!" />
          
        
      
                style="Z-INDEX: 102; LEFT: 316px; POSITION: absolute; TOP: 14px"
          ErrorMessage="Please insert the new category name"
          ControlToValidate="txtCategoryName" />
    
  


Dim objConnection As OleDbConnection
Sub Page_Load(Source as Object, E as EventArgs)
  objConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0; " & _
                        "data source=" + MapPath("EmployeeDatabase.mdb"))
End Sub
Sub btnInsert_Click(Sender As Object, E As EventArgs)
  If Page.IsValid Then
    Dim strSQL As String = "INSERT INTO Employee " & _
                           "(FirsName, LastName) VALUES (?, ?)"
    Dim dbComm As New OleDbCommand(strSQL, objConnection)
    dbComm.Parameters.Add("FirstName", OleDbType.VarChar, 8, "FirstName")
    dbComm.Parameters.Add("LastName", OleDbType.VarChar, 8, "LastName")
    dbComm.Parameters("FirstName").Value = txtCategoryName.Text
    dbComm.Parameters("LastName").Value = txtDescription.Text
    Try
      objConnection.Open()
      dbComm.ExecuteNonQuery()
    Catch ex As Exception
      Response.Write(ex.Message)
      Response.End
    Finally
      If objConnection.State = ConnectionState.Open Then
        objConnection.Close()
      End If
    End Try
    Response.Write("A new record has been added")
    Response.End
  End If
End Sub

           
       
EmployeeDatabase.zip( 10 k)