vb.net 怎么在对数据库操作的函数中，添加根据需求变化的有关数据库操作的函数？

vb.net 怎么在函数中加入需要声明SqlCommand() 的函数

Imports System.Data.SqlClient
Sub btnUpdate_Click(sender As Object, e As EventArgs) Handles btnUpdate.Click
    Dim objCommand As SqlCommand = New SqlCommand()
    objCommand.Connection = objConnection
    objCommand.Parameters.AddWithValue("@用户名", txt用户名.Text)
    objCommand.Parameters.AddWithValue("@项目编号", txt项目编号.Text)
'以下是需要替代的代码
    objCommand.Parameters.AddWithValue("@设备类型1", “1”)
    objCommand.Parameters.AddWithValue("@设备类型2", “1”)
'------------------------
            objCommand.CommandText = "Update 项目报备更新提醒 Set 用户名=@用户名,设备类型1=@设备类型1,设备类型2=@设备类型2  where  项目编号=@项目编号;"
        If objConnection.State = ConnectionState.Open Then
        Else
            objConnection.Open()
        End If
        objCommand.ExecuteNonQuery()
        objConnection.Close()
End Sub

———————————————————

    objCommand.Parameters.AddWithValue("@设备类型1",“1”)
    objCommand.Parameters.AddWithValue("@设备类型2", “1”)

这部分代码是几个函数共用的，且可能随着需求点变化，增加或减少，例如变为

    objCommand.Parameters.AddWithValue("@设备类型1", “1”)
    objCommand.Parameters.AddWithValue("@设备类型2", “1”)
    objCommand.Parameters.AddWithValue("@设备类型3", “1”)
    objCommand.Parameters.AddWithValue("@设备类型4", “1”)

有什么办法可以做到这点？

…………

尝试了在函数中添加 testit() ，不起作用

Private Sub testit()
    Dim objCommand As New SqlCommand()
    objCommand.Parameters.AddWithValue("@设备类型1", “1”)
    objCommand.Parameters.AddWithValue("@设备类型2", “1”)
    objCommand.Parameters.AddWithValue("@设备类型3", “1”)
    objCommand.Parameters.AddWithValue("@设备类型4", “1”)
End Sub

Imports System.Data.SqlClient