Public Sub ExecuteStoredProcedure(ByVal Proc_Name As String, ByVal alField _
      As ArrayList, ByVal alValue As ArrayList)
        Try
            m_cmd.CommandType = CommandType.StoredProcedure
            m_cmd.CommandText = "Copy_Room"
 
            Fill_Command_Parameter(m_cmd, alField, alValue.ToArray)
 
            m_cmd.ExecuteNonQuery()
        Catch ex As Exception
            MessageBox.Show(ex.Message, Proc_Name & " " & ex.ToString)
        Finally
            m_cmd.CommandType = CommandType.Text
            m_cmd.Parameters.Clear()
        End Try
    End Sub
 
    Private Sub Fill_Command_Parameter(ByRef command As SqlCommand, ByVal _
      alField As ArrayList, ByVal arValue() As Object)
        For x As Integer = 0 To alField.Count - 1
            If (Not TypeOf arValue(x) Is System.DBNull) And (Not arValue(x) Is _
              Nothing) Then
                If TypeOf arValue(x) Is Date AndAlso _
                   CType(arValue(x), Date).Ticks = 0 Then
                    arValue(x) = System.DBNull.Value
                End If
                Command.Parameters.AddWithValue("@" & alField(x).ToString, _
                  arValue(x))
            End If
        Next
    End Sub

' aufruf
        Dim alField As New ArrayList
        Dim alValue As New ArrayList
 
        alField.Add("Old_LfdNr_Room")
        alValue.Add(m_LfdNr)
 
        alField.Add("New_Room_Name")
        alValue.Add(Room_Name)
 
        alField.Add("New_Room_LfdNr_MEi")
        alValue.Add(LfdNr_MEi)
 
        cmd.ExecuteStoredProcedure("Copy_Room", alField, alValue)