Private Sub SPerzeugen()
        Dim sqlCmdSPerzeugen As New SqlClient.SqlCommand
        sqlCmdSPerzeugen.CommandText = txbVorschau.Text
        sqlCmdSPerzeugen.Connection = SqlCon
 
        Try
            SqlCon.Open()
            sqlCmdSPerzeugen.ExecuteNonQuery()
            SqlCon.Close()
        Catch ex As Exception
            MessageBox.Show(ex.Message)
            SqlCon.Close()
        End Try
 
    End Sub