Insert Command Not Working....

This is a real head ache. Nothing I do to add a record to my SQL2k Database wil work.





I'm logged into it as "sa".





I've Tried Stored Procedures:





Dim myConnection As New SqlConnection(ConfigurationSettings.AppSettings("ConnectionString"))


Dim myCommand As New SqlCommand("AddLender", myConnection)


' Mark the Command as a SPROC


myCommand.CommandType = CommandType.StoredProcedure





Dim parameterUserName As New SqlParameter("@UserName", SqlDbType.NVarChar, 100)


parameterUserName.Value = userName


myCommand.Parameters.Add(parameterUserName)





Dim parameterName As New SqlParameter("@Name", SqlDbType.NVarChar, 100)


parameterName.Value = name


myCommand.Parameters.Add(parameterName)





Dim parameterCompany As New SqlParameter("@Company", SqlDbType.NVarChar, 100)


parameterCompany.Value = Company


myCommand.Parameters.Add(parameterCompany)





Dim parameterEmail As New SqlParameter("@Email", SqlDbType.NVarChar, 100)


parameterEmail.Value = email


myCommand.Parameters.Add(parameterEmail)





Dim parameterContact As New SqlParameter("@Contact", SqlDbType.NVarChar, 100)


parameterContact.Value = contact


myCommand.Parameters.Add(parameterContact)





Dim parameterPhone As New SqlParameter("@Phone", SqlDbType.NVarChar, 100)


parameterPhone.Value = Phone


myCommand.Parameters.Add(parameterPhone)





Dim parameterFax As New SqlParameter("@Fax", SqlDbType.NVarChar, 100)


parameterFax.Value = Fax


myCommand.Parameters.Add(parameterFax)





myConnection.Open()


myCommand.ExecuteNonQuery()


myConnection.Close()





Return CInt(parameterItemID.Value)





The Sproc.......











CREATE PROCEDURE AddLender


(


@Username nvarchar(100),


@ModuleID int,


@Email nvarchar(100),


@Name nvarchar(100),


@Rep nvarchar(250),


@Phone nvarchar(250),


@Fax nvarchar(250),


@City nvarchar (100),


@State nvarchar(100),


@ItemID int OUTPUT


)


AS


INSERT INTO Lenders


(


Email,


Name,


Rep,


Phone,


Fax,


CIty,


State


)


VALUES


(


@Email,


@Name,


@Rep,


@Phone,


@Fax,


@City,


@state





)


SELECT


@ItemID = @@Identity





GO














I get no Errors... I've run SQLProfiller and I don;t even see it run...





I also tried the method..








Dim strSql As String


Dim objDataSet As New DataSet()


Dim objConnection As OleDbConnection


Dim objAdapter As OleDbDataAdapter





strSql = "Select ItemId,ModuleId,Name,Rep, Email,Phone,Fax,City,State,Address From Portal_Lenders;"





objConnection = New OleDbConnection(ConfigurationSettings.AppSettings("ConnectionStringOledb"))


objAdapter = New OleDbDataAdapter(strSql, objConnection)





objAdapter.Fill(objDataSet, "Lenders")





Dim objtable As DataTable


Dim objNewRow As DataRow








objtable = objDataSet.Tables("Lenders")





objNewRow = objtable.NewRow()


objNewRow("ModuleId") = moduleId


objNewRow("Name") = NameField.Text


objNewRow("Rep") = RepField.Text


objNewRow("Email") = EmailField.Text


objNewRow("Phone") = PhoneField.Text


objNewRow("Fax") = FaxField.Text


objNewRow("City") = CityField.Text


objNewRow("State") = Statefield.Text


objNewRow("Address") = StreetAddress.Text





objtable.Rows.Add(objNewRow)








Still no Error or activity in the Pofiller.





Please Help...