Insert into DB (1 Viewer)

Sub btnSubmit_Click(sender As Object, e As EventArgs)


        Dim itemName As String = txtItemNm.Text
        Dim senderName As String = txtSender.Text
        Dim serialNo As String = txtSerial.Text
        Dim aWB As String = txtAWB.Text
        Dim model As String = ddlModel.SelectedIndex
        Dim itemDescription As String = txtDesc.Text
        Dim quantity As String = txtQuant.Text
        Dim status As String = ddlStatus.SelectedIndex

        If txtItemNm.Text = "" and txtSender.Text = ""  and  txtSerial.Text = "" and txtAWB.Text = "" and ddlModel.SelectedIndex = 0 and txtDesc.Text = "" and txtQuant.Text = "" and ddlStatus.SelectedIndex = 0 Then


        lblMsg.Text = "All the fields are MANDATORY!"

        else if txtItemNm.Text <> "" and txtSender.Text <> ""  and  txtSerial.Text <> "" and txtAWB.Text <> "" and ddlModel.SelectedIndex <> 0 and txtDesc.Text <> "" and txtQuant.Text <> "" and ddlStatus.SelectedIndex <> 0 Then
        InsertItems(itemName,senderName , serialNo, aWB,  model, itemDescription, quantity , status)

        lblMsg.Text = "Successfully Entered!"
        end if

    End Sub


    Function InsertItems(ByVal itemName As String, ByVal senderName As String, ByVal serialNo As String, ByVal aWB As String, ByVal model As String, ByVal itemDescription As String, ByVal quantity As Integer, ByVal status As String) As Integer
        Dim connectionString As String = "Provider=Microsoft.Jet.OLEDB.4.0; Ole DB Services=-4; Data Source=C:\Inetpub\HASE"& _
            "M\HASEM.mdb"
        Dim dbConnection As System.Data.IDbConnection = New System.Data.OleDb.OleDbConnection(connectionString)

        Dim queryString As String = "INSERT INTO [tblNewItems] ([ItemName], [SenderName], [SerialNo], [AWB], [Model], [ItemD"& _
            "escription], [Quantity], [Status]) VALUES (@ItemName, @SenderName, @SerialNo, @AWB, @Model, @ItemDescription, @Quanti"& _
            "ty, @Status)"

        Dim dbCommand As System.Data.IDbCommand = New System.Data.OleDb.OleDbCommand
        dbCommand.CommandText = queryString
        dbCommand.Connection = dbConnection

        Dim dbParam_itemName As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_itemName.ParameterName = "@ItemName"
        dbParam_itemName.Value = itemName
        dbParam_itemName.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_itemName)

        Dim dbParam_senderName As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_senderName.ParameterName = "@SenderName"
        dbParam_senderName.Value = senderName
        dbParam_senderName.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_senderName)

        Dim dbParam_serialNo As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_serialNo.ParameterName = "@SerialNo"
        dbParam_serialNo.Value = serialNo
        dbParam_serialNo.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_serialNo)

        Dim dbParam_aWB As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_aWB.ParameterName = "@AWB"
        dbParam_aWB.Value = aWB
        dbParam_aWB.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_aWB)

        Dim dbParam_model As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_model.ParameterName = "@Model"
        dbParam_model.Value = model
        dbParam_model.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_model)

        Dim dbParam_itemDescription As System.Data.IDataParameter = New System.Data.OleDb.OleDbParameter
        dbParam_itemDescription.ParameterName = "@ItemDescription"
        dbParam_itemDescription.Value = itemDescription
        dbParam_itemDescription.DbType = System.Data.DbType.[String]
        dbCommand.Parameters.Add(dbParam_itemDescription)

        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 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 rowsAffected As Integer = 0
            dbConnection.Open
            Try
                rowsAffected = dbCommand.ExecuteNonQuery
            Finally
                dbConnection.Close
            End Try

            Return rowsAffected

    End Function