Doesnt Insert

[Mitsuki]

I have created a form but it doesnt insert the fileds in the table :wacko:

sub btnSave_Click(sender As Object, e As EventArgs)

    Dim strAssetType As string = lstAssetType.SelectedIndex
    Dim TrackStatus As string = rbtnAssetType.SelectedIndex
    Dim Quantity As string = txtQuantity.Text
    Dim Name As string = txtName.Text
    Dim Description As string = txtDesc.Text
    Dim Status As string = selectStatus.SelectedIndex


   If lstAssetType.SelectedIndex  = 0 and rbtnAssetType.SelectedIndex = 0 and txtQuantity.Text = "" _
    and txtName.Text = "" and txtDesc.Text = "" and selectStatus.SelectedIndex = 0 Then

    lblMessage.Text = "Please Complete the form."

   ElseIF lstAssetType.SelectedIndex  <> "0" and rbtnAssetType.SelectedIndex <> "0" and txtQuantity.Text <> "" _
    and txtName.Text <> "" and txtDesc.Text <> "" and selectStatus.SelectedIndex <> "0" Then

    InsertNewItems(strassetType, trackStatus , name ,  description ,status ,quantity)
    lblMessage.Text = "You have submitted your form successfully"


   End if

End Sub

Sub rbtnAssetType_SelectedIndexChanged(sender As Object, e As EventArgs)

Quantity()

End Sub

Private Sub Quantity()

if rbtnAssetType.SelectedIndex = 2 Then
Dim tblSerial as new table

tblSerial.Enabled = false
End if

End Sub



    Function InsertNewItems(ByVal strassetType As String, ByVal trackStatus As String, ByVal name As String, ByVal description As String, ByVal status As String, ByVal quantity As Integer) As Integer
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=demo.mdb"
        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

        Dim queryString As String = "INSERT INTO [tblNewItems] ([AssetType], [TrackStatus], [N"& _
            "ame], [Description], [Status], [Quantity]) VALUES (@AssetType, @TrackStatus, @Name, @Description, @Status, @Quantity)"
        Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection
        Dim dbParam_strassetType As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_strassetType.ParameterName = "@strassetType"
        dbParam_strassetType.Value = strassetType
        dbParam_strassetType.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_strassetType)
        Dim dbParam_trackStatus As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_trackStatus.ParameterName = "@TrackStatus"
        dbParam_trackStatus.Value = trackStatus
        dbParam_trackStatus.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_trackStatus)
        Dim dbParam_name As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_name.ParameterName = "@Name"
        dbParam_name.Value = name
        dbParam_name.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_name)
        Dim dbParam_description As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_description.ParameterName = "@Description"
        dbParam_description.Value = description
        dbParam_description.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_description)
        Dim dbParam_status As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_status.ParameterName = "@Status"
        dbParam_status.Value = status
        dbParam_status.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_status)
        Dim dbParam_quantity As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_quantity.ParameterName = "@Quantity"
        dbParam_quantity.Value = quantity
        dbParam_quantity.DbType = System.Data.DbType.Int32
        dbCommand.Parameters.Add(dbParam_quantity)

        Dim rowsAffected As Integer = 0
        dbConnection.Open
        Try
            rowsAffected = dbCommand.ExecuteNonQuery
        Finally
            dbConnection.Close
        End Try

        Return rowsAffected
    End Function

Attached is the database